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RISERIATO PERSONAL 


Tetraedro 
Un programma sui solidi 2 
di rotazione. 


Statistica 

ad una dimensione 2° 

Seconda parte di 1 P., 
una serie di articoli 

sul calcolo statistico. 


Memory Alfa IV 
Il programma propone > 8 
un data base su cassetta. 


Parola di elaboratore 2° 
| programmi del package A ,, 
poetico Oulipoit. 


Simulavolo 
Siete un pilota e vi dovete 


accontentare solo del volo 
strumentale? 

Bene, questo programma 
fa per voi. 


Verifica della 

comprensione dei testi 

Un programma 5 È 
sull'educazione linguistica 

con il computer. 


Slalom 


Una folle discesa 
sino al traguardo... 
con il VIC naturalmente. 


 Tetraedro 


Il programma che propongo richiama l’arcinoto gioco dei solidi girevoli. Tutti infatti 
conoscono il geniale quanto famoso Cubo di Rubik e ricordano le notti insonni passate nel 
tentativo di risolverlo. Oltre a questo solido (e le sue varianti) si sono aggiunti sul mercato 
sfere, cilindri, solidi complessi e tetraedri; è proprio di questi ultimi, e cioè piramidi a base 

triangolare, che questo programma emula il gioco. 


di A.E. Minetti 


a problematica connessa con la realizzazio- 
L ne su schermo (2 dimensioni) di movimenti 
che avvengono nella realtà tridimensionale non 
è sempre di facile risoluzione, ma risulta intuitivo 
come sia più agevole, in simili condizioni, avere a 
che fare con il minor numero possibile di facce; il 
tetraedro rappresenta in questa ottica l'estrema 
semplificazione. 


Realizzazione 


Sono state usate ambedue le pagine grafiche 
ad alta risoluzione dell'Apple Il HGR ed HGR2 per 
l'esigenza di mostrare tutte le facce di que 
solido. Infatti nella pagina più estesa (HGR2) so- 
no rappresentate 3 facce del tetraedro (n. 1,2,3) 

| mentre in quella più limitata (HGR) solo 2 facce 
(n. 4, 5; la S è la ripetizione della 1). 

Tramite il cambiamento di stato di due locazio- 
ni indicate sia dall'Applesoft Programmer Ma- 
nual sia dal Reference Manual è possibile passa- 
re da una pagina grafica all'altra senza cancel- 
lare le figure contenute in entrambe. Le diverse 
facce sono state contrassegnate mediante 
quattro simboli (memorizzati in shape table) che 
all’inizio del gioco sono disposti in modo ordinato, 
ovvero ogni faccia è costituita da simboli uguali 
tra loro. La scelta dei simboli piuttosto che dei 
colori quali contrassegni è stata dettata sia da 
una maggiore semplificazione dal lato software, 
sia dal desiderio di non escludere coloro che non 
posseggono un monitor (o TV) a colori. Per far 
muovere i simboli in modo da simulare il movi- 
mento di una faccia è sufficiente digitare il nu- 
mero relativo alla faccia stessa seguito da "— >" 
oppure “<—" a seconda che si desideri una rota- 
zione oraria o antioraria, rispettivamente. La bar- 
ra spaziatrice può essere adoperata in qualsiasi 
momento durante l'esecuzione del programma 
per visualizzare le facce nascoste. In tabella 1 è 
presentata una breve descrizione delle subrouti- 
ne usate in ordine di chiamata. O 


Tabella 1] - Descrizione 
delle subroutine utilizza- 
te. 


(O) 
I 


Figura 1] - Hardcopy su stampante. 
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5 LOMEM: 24576 


10 
20 
30 
40 
so 
60 
119 
120 
130 


135 
140 


GOSUB 8000 

GOSUB 4000 

GOSUB 7000 

GOSUB 9000 

GOSUB 5000 

GOSUE 3000 

X = PEEK ( - 16384) 
IF X< = 127 THEN 110 
IF X = 160 THEN GOSUB 6000: 
POKE -—- 163568,0: GOTO 110 

128 


IF X < > 49 AND X < >» 50 AND 


)_ ‘E, >» 51 AND X < >» S2 AND 
x « > B AND X < > 21 THEN 
POKE -—- 16368,0: PRINT "": 
110 
IF RX = @ THEN RX = X: POKE 
- 16368,0: GOTO 110 

DIR = X:X = 1: POKE - 16368, 


» «# (RX 46905 INT CIDI 


R - 3) / 10): IFW< = @ THEN 


RX = 0: GOTO 110 
ON W GOSUB 1000,1100,1200,13 
00,14200,1500,1600,1700 
GOSUB 2000 
GOSUR 3000 
RX = @ 
GOTO 110 
VTAB 18: HTAB 18: PRINT "SHI 
FT < =ROT ANTIORARIA” 
REM 
FOR PEZZO = i TO 3 
T = SIMB(2,PEZZO) 
SIMB(2,PEZZO) = SIMB(3,PEZZO 
) 
SIMB(3,PEZZO) 
) 
SIMB(4,PEZZO) 
NEXT 
F = i: GOSUB 1800 
RETURN 
REM 
FOR PEZZO = 1 TO 3 
T = SIMB(2,FEZZO) 
SIMB(2,FPEZZO) = SIMB(4,PEZZO 
) 
SIMB(4,PEZZO) = SIMB(3,PEZZO 
) 
SIMB(3,FEZZO) = T 
NE XI 
= 1: GOSUB 1900 
RETIIRN 
REM 
T = SIMB(3,1):SIMB(3,1) = SI 
MB (1,1) 
SIMB(i,1) = SIMB(4,6):SIMB(4 
,6) = T 
T = SIMB(3,4):SIMB(3,4) = SI 
MB (1,4) 
SIMB(1,4) = SIMB(4,5):SIMB(4 
,5) = T 
T = SIMB(3,6):SIMB(3,6) = 
MB (1,6) 
SIMB(1,6) = SIMB(4,3):SIMB(4 
33) = T 
F = 2: GOSUB 1800 
RETURN 
REM 
T = SIMB(3,1):SIMB(3,1) 
MB (4,6) 


SIMB(A4,FEZZO 


SIMB(4,6) = SIMB(1,1):SIMB(1 
si) = T 

T = SIMB(3,4):SIMB(3,4) = SI 
MB (4,5) 

SIMEB(4,5) = SIMB(1,4):SIMBC1 
,4) = T 

T = SIMB(3,6):SIMB(3,6) = SI 
MB (4,3) 

SIMB(4,3) = SIMB(1,6):SIMB(1 
,6) = T 

F = 2: GOSUB 1900 

RETURN 

REM 

T = SIME(4,1):SIMB(4,1i) = SI 
MB (1,6) 

SIME(1,6) = SIMB(2,6):SIMB(2 
,6) = T 

T = SIMB(4,4):SIMB(4,4) = SI 
MB (1,5) 

SIMB(1,5) = SIMB(2,5):SIMB(2 
5) T 

T = SIMB(4,6):SIMB(4,6) 

MB (1,3) 
SIMB(1,3) = SIMB(2,3):SIMB(2 
,3) = T 
F = 3: GOSUB 1800 

RETURN 

REM 

T = SIMB(4,1):SIMB(4,1) = SI 
MB (2,6) 
SIMB (2,6) = SIMB(1,6):SIMB(1 
,6) = T 
T = SIMB(4,4):SIMB(4,4) = SI 
MB (2,5) 
SIMB(2,5) = SIMB(1,5):SIMB(1 
,5) = T 

T = SIMB(4,6):SIMB(4,6) = SI 
MB (2,3) 
SIMB(2,3) = SIMB(1,3):SIMB(1 
,3) = T 
F = 3: GOSUB 1900 

RETURN 

REM 

T = SIMB(1,1):SIMB(1,1) = SI 
MB (3,3) 
SIMB(3,3) = SIMB(2,6):SIMB(2 
36) = T 
T = SIMB(1,2):SIMB(1,2) = SI 
MB (3,5) 
SIMB (3,5) = SIMB(2,4):SIMB(2 
34) = T 
T = SIMB(1,3):SIMB(1,3) = SI 
MB(3,6) 
SIMB(3.6) = SIMB(2.1):SIMB(2 
,1) = T 
F = 4: GOSUB 1800 

RETURN 

REM 

T = SIMB(1,1):SIMB(1,1) = SI 
MB (2,6) 
SIMB (2,6) = SIMB(3,3):SIMB(3 
,3) = T 
T = SIMB(1,2):SIMB(1,2) = SI 
MB (2,4) 
SIMB(2,4) = SIMB(3,5):SIMB(3 
,5) = T 

T = SIMB(1,3):SIMB(1,3) = SI 
MB (2,1) 
SIMB(2,1) = SIMB(3,6):SIMB(3 
,6) = T 
F = 4: GOSUB 1900 

RETURN 


Figura 2 - Il programma 


Tetraedro. 
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Seguito programma 
Tetraedro. 


3120 


3130 
3140 
3150 
4000 


SIMB(F,1):SIMB(F,1) = SI 

MB (F,6) 
SIME(F,6) = SIMB(F,3)sSIMB(F 
33) = 
T = SIMB(F,2):SIMB(F,2) = SI 
MB (F,4) 
SIMB(F,4) = SIMB(F,5):SIMB(F 
,5) = T 

RETURN 

REM 
T = SIMB(F,1}:SIMB(F,1) = SI 
MB (F,3) 
SIMB(F,3) = SIMB(F,6):SIMB(F 
,6) = T 
T = SIMB(F,2):SIMB(F,2) = SI 
MB (F,5) 
SIMB(F,5) = SIMB(F,4):SIMB(F 
,4) = T 

RETURN 

REM 

HCOLOR= 3 

IF FAGINA = @ THEN GOSUB 6 
000 

FOR FACCIA = i TO 3 

IF FACCIA = 1 THEN ROT= 16 
: GOTO 2040 

ROT= @ 

FOR PEZZO = 1 TO 6 

DRAW S AT COCFACCIA,PEZZO,X 
) \CO(FACCIA,PEZZO,Y) 

NEXT PEZZO 

NEXT FACCIA 

GOSUB 5000 

FOR FACCIA = 4 TO 5 

IF FACCIA = S THEN ROT= 16 
: GOTO 2110 

ROT= 0 

FOR PEZZO = 1 T0 6 

DRAW S AT CO(FACCIA,PEZZO,X 
) ,CO(FACCIA,PEZZO,Y) 

NEXT : NEXT 

GOSUB 5000 

HCOLOR= @ 

RETURN 

REM 

IF FAGINA = 2 THEN GOSUB 6 
200 

FOR FACCIA = i TO 3 

IF FACCIA = 1 THEN ROT= 16 
: GOTO 3040 

ROT= ® 

FOR PEZZO = 1 T0 6 


DRAW SIMB(FACCIA.PEZZO) AT 
CO (FACCIA,FEZZO,X}) ,CO(FACCIA 


sPEZZO,Y) 

NEXT PEZZO 

NEXT FACCIA 

GOSUB £000 

FOR FACCIA = 4 TO 5 

IF FACCIA = S THEN ROT= 1é 
: GOTO 3110 

ROT= © 

FOR PEZZO 1 TO06 

IF FACCIA 5 THEN DRAW SI 
MB(1,PEZZO) AT CO(FACCIA,PEZ 
ZO,X) ,CO(FACCIA,PEZZO,Y}: GO0T0 
3130 

DRAW SIMB(FACCIA,PEZZO) AT 
CO (FACCIA,PEZZO,X) ,CO(FACCIA 
sPEZZO,Y}) 

NEXT : NEXT 

GOSLIB 6002 

RETURN 

REM 


FOR I = 7676 TO 7755 

READ A: POKE I1,A 

NEXT 

DATA 6&,9,14,0,26,0,38,0,4 
P,0,61,09,0,0,9,441,44,36,39,3 
9,62,62,54,53,5,0 

DATA —44,44,36,39,39,77,49 
, 55,22,46,62,0 

DATA 5,45,36,36,36,63,63, 
54,54,54,0 

DATA 5,36,36,60,40,13,2 
45,54,54,46,4,0 

DATA  45,45,36,36,36,63,63 
,54,54,46,45,36,36,63,54,46, 
36,4,0 

POKE 232,252: POKE 233,29 
ROT= 0: SCALE= 1 

RETURN 

HGR2 : HCOLOR= 3 

HPLOT 0,9: CALL 62454 
HCOLOR= @ 

HFLOT 40,10 TO 240,10 TO 14 
0,183 TO 40,10 : 
HPLOT TO 125,55 TO 240,11 TO 
125,55 TO 141,183 

HPLOT 90,10 TO 154,44 TO 16 
4,140 

HPLOT 190,10 TO 104,44 TO 1 
17,141 

HFLOT 65,53 TO 128,87 

HPLOT TO 215,53 

HPLOT 61,21 TO 213,21 TO 13 
6,150 TO 61,21 
HH = INT (3 * RND (1)) 
HCOLOR= HH 

FOR I = 0 TO 10: HFLOT 0,1 TO 
279,1: NEXT 

FOR I = 191 TO 183 STEP - 
1: HFLOT Q,1 TO 279,I: NEXT 


FOR I = i0 TO 183: HPLOT Q, 
I TO INT (.58 * I + 34.22), 
ar GRLOT 279,1 T0:279+£.= 
INT (.58 * I + 34.22),I: NEXT 


HCOLOR= © 

ROT= ié: DRAW 1 AT 130,25: ROT= 
0: DRAW 2 AT 101,84: DRAW 3 AT 
164,87 

HGR : HCOLOR= 3: HPLOT 0.0: 


CALL 62454 
HCOLOR= © 

HPLOT 60,35 TO 220,35 TO 14 
8,156 TO 60,35 

HPLOT TO 160,5 TO 220,35 
HPLOT 146,10 TO 180,35 TO 1 
24,122 

HPLOT 172,11 TO 190,35 TO 1 
66,124 

HPLOT 82,65 TO 201,68 

HPLOT 87,27 TO 206,27 
HCOLOR= HH 

FOR I = 0 TO S: HPLOT 0,I TO 
279,1: NEXT 

FOR I = 191 TO 156 STEP - 
1: HPLOT 0,1 TO 279,1: NEXT 


FOR I = 35 TO 156: HPLOT 8, 
I TO INT (.73 * I + 34.55), 
I: HPLOT 279,I TO 1 + INT (€ 
- .6 * I + 240.83),1: NEXT 


FOR I = 35 TO 5 STEP - 1: 


Seguito programma 
di,.I TO INT (> 3,33 -": PRINT Tetraedro. 
76.67) ,1: HPLOT 279,I T ; 8045 VTAB 15 

INT (2 * I + 1509),1: N 80S0 PRINT "-09- FACCIA 1" 
HCOLOR= ® 89053 PRINT "-X- FACCIA 2" 

DRAW 4 AT 140,78: ROT= 16: DRAW 8056 PRINT "-0- FACCIA 3" 

1 AT 148,20 8060 FRINT "-1": CHR$ (219): "- 
RETURN ACCIA 4" 

REM 8062 VTAB 15: HTAB 18: PRINI 

IF FAGINA = 0 THEN FPOKE 80 ROT ORARIA" 
6,64: POKE 230,64: POKE - 1 80564 VTAB 16: HTAB 18: PRINI 
6302,09: POKE 16299,0:PAGI - ROT ANTIORARIA" 
NA = 2: GOTO 45030 8066 VTAB 20: FRINT "BATTERE OGN 
IF PAGINA = 2 THEN POKE 80 VOLTA <N.FACCIA- SEGUITO D 
6,32: POKE 230,32: POKE = A A - OPPURE - 
6300, 0:PAGINA = D ? VTAB 22: PRINT "BATTERE «SP 
POKE - 16368,09 ACE> PER VISUALE POSTERIORE " 
RETURN s INVERSE 

REM VTAB 24: HTAB S: FRINT "BAT 
DIM C0(5,6,2) TERE «RETURN» PER INIZIARE": 
x. = LrY n. £ : GET As: PRINT A#: 

FOR FACCIA = 1 TO 8069 NORMAL : HOME 

FOR PEZZO = 1 TO06 8070 RETURN 

READ Xi,Yi 9000 REM 
CO(FACCIA,PEZZO,X) ) 9010 DIM SIMB(5,6) 
COC(FACCIA,FEZZO,Y) 9920 FOR PEZZO = 1 TC 

NEXT 9030 SIMB(1,PEZZO) 

NEXT 9040 SIMEB(2,FEZZO) 

RETURN 9050 SIMB(S,FPEZZO) 

REM 7060 SIMB(4,PEZZO) 

TEXT : HOME =: FOR I = 1 TO 9070 SIMB(S,FEZZO) 

39: PRINT "*":: NEXT : PRINT 9080 NEXT 

"#": FOR I = 2 TO 10: VTAB ( 9090 RETURN 

I): HTAB (1): PRINT "#":;: HTAB 10010 DATA Ti. 454133, 13,.198 
(40): PRINT "*": NEXT : VTAB 913 ,99,29,156,29,125,41 
(11): FOR I = 1 TO 39: PRINT 10020 DATA 63,43,90,55,114, 
"#".s: NEXT s PRINT "»#" 69,92,93,119,108,125,1S1 
VTAB 4: HTAB 16: INVERSE =: PRINT 10030 DATA 140,68,172,55,2 
"TETRAEDRO": NORMAL 09,41,144,108,178,97,147,/151 
VTAB 7: HTAB 14: PRINT "DI 
A.E.MINETTI" 10040 DATA 87,53,139,53,187,53 
VTAB 9: HTAB 32: PRINT "198 si11 4,89,164,89,142,129 

=> 100509 DATA 189,29,140,29,8 > 
VTAB 13: PRINT "-ISTRUZIONI 8,29,171,17,126,17,156,8 ®© 
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Archivio dischi 


di O. Calvi 


| | programma è scritto in BASIC-Microsoft ed 
originariamente è stato scritto per girare sul- 
l'elaboratore tipo Amico 2000-A3000 della A.S.E.L. 
che abbiano 1 floppy-disk e DOS-BASIC versione 


2.0. 

È strutturato a blocchi indipendenti che operano 
tutti sulla stessa matrice di elementi. È comunque 
estremamente semplice adattare il programma 
a qualunque tipo di macchina che abbia alme- 
no 16 Kbyte di RAM. Il programma da solo occu- 
pa circa 5 Kbyte di memoria è stato scritto in 
modo che il disco serve unicamente per l'archi- 
viazione definitiva dei dati. 

Le variazioni vengono dapprima eseguite solo in 
memoria. Poi (da menu) si passa all'aggiorna- 
mento dei file sul disco. Questo sistema offre il 
vantaggio della velocità nella ricerca di un dato. 

Ricerca che avviene solo in memoria. Infatti il 
file di dati viene scaricato totalmente nella me- 
moria stessa. Non è quindi necessario aspettare il 
tempo di avviamento del driver (sempre relativa- 
mente lungo). Tuttavia tale sistema porta lo svan- 
taggio di occupare una certa quantità di memo- 
ria centrale. 

È comunque possibile ridimensionare le matrici a 
propria misura presupposto che con circa 20 
Kbyte si possono archiviare quasi un centinaio di 
autori con 10-15 dischi a testa oppure (ridimen- 
sionando opportunamente le matrici) 200 autori 
con 7-8 dischi l'uno. 

Daltronde (normalmente) chi è così fortunato da 
possedere più di 500 dischi avrà anche un siste- 
ma con più di 20 Kbyte di memoria. 

A seconda della quantità di memoria si possono 
archiviare solo i dischi posseduti oppure tutti i 
dischi di un determinato autore evidenziando i 
propri con qualche commento dato che il pro- 
gramma permette di affiancare un (breve)com- 
mento al titolo del disco o al nome dell'autore 
come per esempio: “rovinato” o “prestato”. 

Le variabili che contengono i dati del program- 
ma sono: 

A = Numero degli autori totali. 

A$ = Nome dell'autore. 

ND = Numero dei dischi di un autore. 

TD$ = Titolo di un disco. 

Esempio TD$(F.I) = titolo del disco N. “F” dell'auto- 
re N. “I” per ragioni di sicurezza su disco vengono 
tenuti 2 file che contengono i dati dell'archivio. 
File2.Dat è il file più aggiornato che contiene i 
dati su cui stiamo lavorando e su cui faremo le 
modifiche. 

File3.Dat è il file che contiene i dati che avevamo 
prima dell'ultima variazione. 

Nel caso cioè che il trasferimento dei dati dalla 
memoria al disco o viceversa non venga eseguito 
correttamente avremo almeno salvato in File- 
3.Dat i dati che avevamo prima dell'ultimo ag- 
giornamento. Infatti il programma prima di ese- 
guire le modifiche sul disco salva l'attuale File- 


le 


2.Dat chiamandolo File3.Dat (il File3.Dat prece- 
dente viene cancellato, linee 60-80); purtroppo 
tali operazioni che su dischi risultano molto sem- 
plici si complicano se come memoria di massa si 
usa la cassetta, per cui sarà necessario modifica- 
re le linee 60-290. Sono solo tali linee, infatti, le 
ita che contengono le istruzioni non stan- 
ard. 


Istruzioni sulle linee 


60 il “File2.Dat” viene sprotetto. 

70 il “File3.Dat” viene cancellato. 

CN “File2.Dat” viene cambiato il nome in “File- 
.Dat”. 

90 Il “File2.Dat” viene aperto in scrittura. 

100 scrive il numero totale degli autori. 

110-170 scrive il nome dell'autore, il numero dei 

suoi dischi, i titoli dei suoi dischi. 

180 si chiude il file in scrittura. 

190 il file viene protetto da canceliazioni acci- 

dentali. 

200 viene aperto il file in lettura. 

210-280 vengono scaricati i dati in memoria. 

290 si chiude il file in lettura. 

310-430 stampa il menu del programma princi- 

pale e richiesta delle operazioni. 

Il sistema di input usato per il menu è quello 
“GET X$”, per cui è sufficiente premere il numero 
desiderato (senza return) per entrare direttamen- 
te nelle routine. Per rifiutare il comando o per 
uscire dalle routine se non diversamente indicato 
è sufficiente battere retum. In generale si ritornerà 
al programma principale. 


500-720 routine di ricerca diretta 


Del nominativo indicato viene fatto dapprima 
un tentativo di ricercarlo tra gli autori. In questo 
caso viene stampato l'elenco di dischi dell'auto- 
re. Se invece il tentativo fallisce viene effettuata la 
ricerca tra i titoli dei dischi in questo caso viene 
stampato il nome dell'autore di quel disco. 

La stringa di ricerca “AR$” è confrontata solo 
con la parte della stringa in memoria che soddi- 
sfa l'uguaglianza. Questo per evitare che se il 
nome ricercato è seguito da un commento si 
debba per forza inserire anche il commento per 
ritrovare il nominativo. Per esempio se il disco - 
Rimini - è seguito dal commento (prestato) sarà 
sufficiente inserire - Rimini - oppure solamente - 
Rimi - o solo - Ri - per soddisfare l'uguaglianza 
della stringa e ritrovare il nominativo. Il program- 
ma nel caso il nominativo sia un autore si limita a 
stampare la prima stringa trovata. Nel caso inve- 
ce che il nominativo si riferisca a un titolo il pro- 
gramma ricerca se eventualmente esistono altri 
autori che hanno un disco col titolo identico. Per 
esempio - Greatest Hits - è un titolo molto comu- 
ne. 


appie Lisa 
ci genova 


Con questa routine normalmente si esce dal e 


440-490 termine operazioni 


programma tuttavia se non si è fatto alcun ag- 
giormamento sul disco il programma lo richiede. 
Può darsi che non sia necessaria alcuna registra- 
zione nel caso per esempio ci si limiti a consultare 
l'archivio senza modificarlo. Però così si evita di 
dimenticarsi la registrazione. Ciò è stato fatto 
semplicemente settando la variabile "La 1 ogni 
volta che si esegue una registrazione e control- 
lando il suo valore nella linea 440. 

Il programma di modifica nell'archivio si divide in 
3 sottoprogrammi 


5500-5850 modifica di un nominativo 


Il nominativo inserito può anche essere privo 
dei commenti eventualmente inseriti. Il nominati- 
vo corretto però sarà privo del commento even- 
tualmente inserito accanto al nominativo errato. 
Il commento è necessario riscriverlo. Il sistema di 
ricerca è uguale a quello della ricerca diretta. Il 
programma quindi cerca prima tra gli autori e 
poi tra i dischi. Purtroppo se bisogna modificare 
un titolo con lo stesso nominativo di un autore il 
programma troverà per primo l'autore. È necessa- 
rio, quindi, inserire accanto al titolo del disco un 
commento (se non c'è già). Si può utilizzare an- 
che solo un asterisco. 

Per poter ritrovare il nominativo che vogliamo 
modificare. Questo è comunque un caso abba- 
stanza raro. 


6100-6390 cancellazione di un nominativo 


In questo caso per la cancellazione è necessa- 
rio inserire il nominativo completo anche dei 
commenti. Tutti i nominativi, dopo una cancella- 
zione, vengono rinumerati automaticamente. Da 
notare che se si cancella il nome di un autore 
vengono cancellati anche tutti i suoi dischi e se si 
cancella l'ultimo disco di un autore anche l‘auto- 
re viene cancellato. Attenzione al fatto che prima 
di cancellare l'ultimo disco dell'ultimo autore non 
è possibile lasciare l'archivio completamente 
vuoto a meno di cancellare anche i file sul disco. 


2000-2240 aggiornamento archivio 


Tale routine serve ad aggiungere altri autori e 
altri dischi all'archivio. Per terminare è sufficiente 
battere retum alla richiesta di dati. 


Inizializzazione del programma 


Per inizializzare il programma è sufficiente, la 
prima volta che lo si usa, battere RUN 7000. La 
routine 7000-7070 crea infatti i file sul disco e 
inserisce il primo autore e il primo disco, dopo di 
che appare il menu principale, e le variazioni 


! B\ 
} 


Lisa la nuova Workstation 
Apple che si proietta 
nel office automation future 


INOLTRE NEI NOSTRI COMPUTER SHOP... 


APPLE III potenziato 
con nuove periferiche 


APPLE lle il nuovo 
personal inimitabile 


Drive 5” e 8” floppy 
e Winchester fino a 20 MB 


Monitor monocromatici 
e colori ad alte risoluzioni 


Stampanti a margherita 
e aghi veloci e silenziose 


Plotter professionali 
a più colori e formati 


Supporti magnetici e 
accessori di qualità 


Modulistica stampati 
libri e letterature 


DISTRIBUZIONE 
PER L'ITALIA 


sesso DOVO?!..... 


computer center... 


Corso Sardegna, 36 - GENOVA - Tel. 010/516796 
creare un'altro archivio su un'altro disco 0 per PA Corso Gastaldi, 77/R - GENOVA - Tel. 010/300797 


vengono fatte come già detto. La routine 7000- 
7070 a questo punto non serve più se non per 


reinizializzare il sistema dopo aver cancellato i file 


Via S. Vincenzo, 129/R - GENOVA - Tel. 010/581815 
sul disco. 
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4500-1870 ricerca attraverso chiave 


È una routine non molto veloce cioè è tanto più 
veloce quanto è precisa la chiave usata. In prati- 
ca il programma controlla carattere per caratte- 
re tutte le stringhe fino a trovare tutte quelle strin- 
ghe che soddisfano l'uguaglianza della ricerca. 
Per esempio per ritrovare il titolo - The Rocky orror 
pictures show - sarà sufficiente inserire la chiave - 
Orror - o anche solo - Ror - perritrovare l'autore del 
disco. Tuttavia se vengono ritrovati più di 3 titoli il 
programma indica che la chiave è troppo gene- 
rica. 


2500-2525 riepilogo generale 


Viene stampato un breve riepilogo contenente 


i nomi degli autori il numero dei loro dischi il nu- 
mero totale degli autori e dei dischi. 


6500-6570 stampa dei dati 


La routine è volutamente molto breve e si limita 
a stampare l'elenco di tutti gli autori e dei dischi 
dell'archivio. È passibile di molti miglioramenti a 
seconda dell'uso che si vuole fare. 


40-290 registrazione delle modifiche 
| dati inizialmente modificati solo in memoria 


vengono anche aggiornati sul disco. Alla fine ri- 
appare il menu del programma principale. 


5 DIMA(100),A$(100),ND(100),TD$(20,100) 


10 GOTO200 


40 PRINTCHR$(12)5;:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 


45 L=1 


50 PRINT "#***#*#* AGGIORNAMENTO ARCHIVIO IN ESECUZIONE ++*4+4*+**" 


40 DOS"UNPR FILE2,DAT" 
70 DOS"ERA FILE3.DAT" 


80 DOS"REN FILE3.DAT<FILE2.DAT" 


90 WOPEN"FILE2,DAT"“ 

100 FRINT#A 

110 FORI=1T0A 

120 PRINT#A$(I) 

130 PRINT#ND(I) 

140 FORF=1TOND(I) 

150 PRINT#TD$(F,1) 

150 NEXTF 

170 NEXTI 

180 WCLOSE 

190 DOS "PROT FILE2.DAT" 
200 ROPEN"FILE2.DAT" 

210 INPUT#A 

220 FORI=1TDA 

230 INPUT#A$(I) 

240 INPUT#ND(I) 

250 FORF=1TOND(1I) 

260 INPUT#TD$(FI) 

270 NEXTF 

280 NEXTI 

290 RCLOSE 

295 GOT0310 

300 GOSUB6000 

310 
320 


340 
350 
360 
370 
380 


PRINTCHR$(12);TAB(20)"---- MENU DEL PROGRAMMA ----" 
PRINT:PRINT"RICERCA DI UN AUTORE O DI UN DISCO 
330 PRINT:PRINT"RICERCA ATTRAVERSO CHIAVE 
PRINT:PRINT“STAMPA DEI DATI 
PRINT:PRINT"RIEPILOGO GENERALE 
PRINT:PRINT"MODIFICHE ARCHIVIO 

PRINT:PRINT "REGISTRAZIONE MODIFICHE 
PRINT:PRINT"TERMINE OPERAZIONI 


--di<--" 
-->2<--" 
-->3<--" 
--34<--" 


--)5<--" 
-->b<--" 
--)7<--" 


400 PRINT"*** INSERISCI IL NUMERO DESIDERATO *#**"; 


410 
430 
435 


GETX$:IFX$=""THEN410 


ONVAL(X$)G0T0500,1500,6500,2500,5000,40,440 
IFVAL(X$)<7ORVAL(X$)>1THEN410 


440 
450 
460 
470 
475 
450 
490 
300 
510 
520 
525 
9527 
9530 
540 
590 
555 
598 
360 
9570 
580 
400 
505 
610 
615 
420 
630 
540 
4550 
660 
670 
680 
690 
695 
700 
710 
720 
1500 
1510 
iSii 
1512 
1515 
1520 
1530 
1545 
1550 
1555 
1560 
1570 
1575 
1580 
1585 
1590 
1800 
1505 
1810 
1815 
1820 
1830 
1850 
1860 
1870 
2000 
2010 
2020 


Seguito programma Ar- 

IFL=1 THENEND chivio dischi. 
PRINTCHR$(12):PRINT:PRINT:PRINT 

PRINT"REGISTRAZIONI MODIFICHE DA EFFETTUARE (S/N)"; 
GETX$:IFX$=""THEN470 

IFX$<>"S"ANDX$<>"N"THEN470 

IFX$="S"THEN40 
END 
PRINTCHR$(12);:PRINT:PRINT:PRINT:H=0 
PRINT"INSERISCI IL NOME DELL'AUTORE O IL TITOLO DEL DISCO" 
PRINT:PRINT:INPUT" ";AR$ 

IFAR$=""THEN310 
H=0 
FORI=1TDA 

IFLEFT$(A$(I):LEN(AR$))=AR$THEN630 
NEXTI 
FORI=1TDA 
FORF=1TOND(I) 

IFLEFT$(TD$(F:I):LEN(AR$))=AR$THEN690 
NEXTF 
NEXTI 

IFH>=1THENPRINT:PRINT:PRINT:G0T04000 
PRINT:PRINT:PRINT 
PRINT"NOMINATIVO NON IN ARCHIVIO O NON "; 
PRINT“SCRITTO CORRETTAMENTE" 
G0SUB&000:GOTO310 
PRINTCHR$(12)5TAB(32-LEN(A$(I))/2)A$(I) 
PRINT:PRINT:PRINT 
FORF=1TOND(1I) 
PRINTF:TD$(F,I) 
NEXTF 
FORS=1T014-(3+ND(I)):PRINT:NEXT:G0T04000 
FRINTCHR$(12);:PRINT:PRINT 
FRINTTAB(20)"#*#**":TD$(F,I1);"x**" 
FORS=1T063:PRINT"=";:NEXTS 
PRINT:PRINTTAB(10)"IL DISCO RICERCATO E’ DI ";A$(I) 
FORS=1T063:PRINT"="3:NEXTS:H=H+1:G0T0580 
PRINTCHR$(12) 

PRINT:PRINT:FRINT:INPUT"INSERISCI LA CHIAVE....."5CR$ 
IFCR$=""THEN310 

H=0 

PRINTCHR$(12) 

FORI=1TOA 

FORF=1TOND(I) 

FORT=1TOLEN(TD$(F,1)) 
IFMID$(TD$(F,I),T:LEN(CR$))}=CR$THEN1800 

NEXTT 

NEXTF 

NEXTI 

IFH>OTHENFRINT:PRINT:G0T04000 

PRINT:PRINT 

PRINT"NESSUN TITOLO TROVATO CON LA CHIAVE....."5CR$ 
GOTO300 

PRINT:FRINTTAB(20)"x****":5TD$(F,I);"+x%***" 
FORS=1T062:PRINT"=";:NEXTS:PRINTCHR$(13) 


PRINTTAB(11)"IL DISCO E’ DELL'AUTORE "3A$(I) 
FORS=1T062:PRINT"=";:NEXTS:PRINT:PRINT 

H=H+1 

IFHK3THEN1560 

PRINT"CHIAVE TROPPO GENERICA INSERISCINE"; 
PRINT" UNA PIU’ PRECISA" 

G0SUB6000:GOTO01500 
PRINTCHR$(12):PRINT:PRINT:PRINT 
INPUT"INSERISCI IL NOME DELL’AUTORE":6$ 
IFG$=""THEN310 
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Seguito programma Ar- 
chivio dischi. 


TO) 
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O FORI=1T0A 


IFG$=A$(I)THEN2130 

NEXTI 

F=0:I=A+1 
PRINTCHR$(12):TAB(32-(LEN(G$)/2))G$:PRINT 
PRINT"AUTORE NUOVO" 

F=F+1 

PRINT:PRINT"TITOLO DEL DISCO N."5Fs:INPUTTD$(F,1) 
IFTD$(F,I)<>""THEN2070 

IFF=1THEN2000 
A=A+1:ND(I1)=F-1:A$(I)=G$:G0T02000 
PRINTCHR$(12);TAB(32-(LEN(A$(I))/2))A$(I) 
FORF=1TOND(I) 

PRINTF:TD$(F,1) 

NEXTF:F=ND(I) 

F=F+1 


O PRINT:PRINT:PRINT"TITOLO DEL DISCO N."5Fs:INPUTTD$(F,1) 


IFTD$(F,1)<>""THEN2170 
IFND(I)<FTHENND(I)=F-1 
GOTOZ000 


PRINT:FRINTCHR$(12)sTAB(20)"#*#*RIEPILOGO GENERALE***" 


NTD=0 
PRINT:PRINT:FORI=1TDA 
PRINTI:A$(I):TAB(40)ND(I) 
NTD=NTD+ND(I) 

NEXTI 
FORS=1T064:PRINT"=":NEXTS 


2 PRINT:PRINT"TOTALE AUTORI";A»"TOTALE DISCHI"5NTD 


PRINT:6G0T04000 

H=3 

PRINT"ALTRE OPERAZIONI (S/N)"; 
GETX$:IFX$=""THEN4010 
IFX$<>"S"ANDX$<>"N"THEN4010 
IFX$<>"S"THEN440 

GOTD3I1O 

PRINTCHR$(12):L=0 

PRINTTAB(20)"IL MENU DEL PROGRAMMA COMPRENDE" 
PRINT 

PRINT"MODIFICA DI UN AUTORE O DI UN TITOLO 
PRINT 

PRINT"CANCELLAZIONE DI UN AUTORE O DI UN TITOLO 
PRINT 

PRINT"AGGIORNAMENTO ARCHIVIO 

PRINT 

PRINT"RITORNO AL PROGRAMMA PRINCIPALE 
PRINT:PRINT 

PRINT"*** INSERISCI IL NUMERO DESIDERATO #***"; 
GETX$:IFX$=""THENS100 
IFVAL(X$)>40RVAL(X$)<1THEN5100 

ONVAL (X$)G0T05500,6100,2000:310 
PRINTCHR$(12) 

INPUT"INSERISCI IL NOMINATIVO ERRATO...";E$ 
IFE$=""THEN5S000 

FORI=1T0A 

IFLEFT$(A$(I)+LEN(E$))=E$THEN5700 
FORF=1TOND(I) 
IFLEFT$(TD$(F,I):LEN(E$))=E$THENS800 

NEXTF 

NEXTI 

PRINT:PRINT:PRINT 

PRINT"NOMINATIVO NON IN ARCHIVIO O NON "; 
PRINT"SCRITTO CORRETTAMENTE" 
G0SUB6000:G0T05000 

PRINTCHR$(12); 


6240 
4250 
6255 
b260 
4270 
bE80 
6290 
5300 
6310 

320 
6322 
6325 
4330 
5340 
6350 
6360 
6370 
4380 
4390 
4500 
6510 
65530 
6533 
6535 
6540 
6550 
6555 
6560 
6570 
7000 
7010 
7020 
7030 
7040 
7050 
70650 
7070 


FRINT:PRINT:PRINT:PRINT:PRINT 
PRINT"CONFERMO IL NOMINATIVO ERRATO....:"5A$(I) 
FRINT:PRINT:INPUT"INSERISCI QUELLO CORRETTO...."5A$(I) 


> GOTOS000 


PRINTCHR$(12) 

PRINT:PRINT:PRINT:PRINT 

PRINT"CONFERMO IL TITOLO ERRATO.....:"5TD$(F.I) 
PRINT:PRINT"IL DISCO E’ DELL’AUTORE.......:"3A$(I) 
PRINT:PRINT:INPUT"INSERISCI QUELLO CORRETTO...."3TD$(F,I) 
GOTO5000 

FORK=1T03000:NEXTK:RETURN 

PRINTCHR$(12) 

PRINT:FRINT:FRINT 

INFUT"INSERISCI IL NOMINATIVO DA CANCELLARE..."5C$ 
IFC$=""THENS000 

FORI=1T0A 

IFA$(I)=C$THEN6220 

FORF=1TOND(I) 

IFTD$(F:1)=C$THEN6&3Z0 


O NEXTF 

DO NEXTI 

O PRINT:PRINT:PRINT 

3 PRINT"NOMINATIVO NON IN ARCHIVIO O NON “; 


PRINT"SCRITTO CORRETTAMENTE" 


D GIS UB4O00:G0T0S000 


A$(I)="" 

FORF=iTOND(I) 

TD$(F,I1)="" 

NEXTF:ND(I}=0 

IFI=ATHEN65300 

I=1+1 

A$(I-1)=A$(I) 

ND(I-1)=ND(I) 

TD$(F.1I-1)=TD$(F,1I) 
IFI=ATHENA=A-1:6G0T04&380 

GOT06260 

PRINT:PRENT*IL DISCO “sTDSPxI):3* E° DI. sia FASCI) 
IFND(I)=1THEN4220 

TD$(F,I)="" 

F=F+1 

TD$(F-1,I)=TD$(F,I) 

IFF=ND(I)THEN4&370 

GOTO6S3 

ND(I)=ND(I)-1 
PRINT:FRINT:FPRINT:FRINT"CANCELLAZIONE ESEGUITA" 
G0SUB4000:G0T0S000 
FRINTCHR$(12):FRINT:PRINT:FRINT 
FORI=1ITDA 
PRINT(1);5CHR$(14);TAB(15)A$(I);CHR$(15) 
FRINT:PRINT 

FORF=1TOND(I) 

PRINTF:TD$(F,1I) 

NEXTF 

PRINT:PRINT:FPRINT 

NEXTI 

FRINT(0):G0T0310 

I=1:A=i:ND(1)=1:F=1 
FRINTCHR$(12);:PRINT:PRINT:FRINT 
INFUT"NOME DELL'AUTORE N.i"5;A$(1) 
INFUT"TITOLO DEL DISCO N.1":TD$(1.,1) 
WOFEN"FILEZ.DAT" 
PRINT#A;:A$(1):ND(1):TD$(1,1):WCLOSE 
DOS"COPY FILE3.DAT<FILEZ,.DAT":DOS"PROT FILE2.DAT" 
GOTDI 


Seguito programma Ar- 


chivio dischi. 


(O) 
I 
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Statistica 
ad una dimensione 


Si conclude su questo numero il primo articolo della serie di programmi applicativi di 
calcolo statistico. Le note seguenti mostrano il funzionamento del programma, le sue 
limitazioni, le opzioni ed i vari formati in cui i dati possono essere introdotti. 


di G.U. Barzaghi 
Parte seconda 


Il programma 


Ò | programma è costituito con una serie di 
menu collegati, opportunamente richiamati 
ed agisce in forma autoesplicativa. Dopo aver 
mandato in RUN il programma, l'utente ha due 
alternative: 
a) inserire dei nuovi dati da elaborare; 
b) caricare da nastro dei dati registrati in una 
precedente elaborazione con lo stesso program- 
ma. 
Nel primo caso, viene chiesto di indicare, da 
parte dell'utente, se si desidera introdurre dati già 
raccolti per classi o dei campioni sparsi, che il 
calcolatore provvederà da programma, su speci- 
fiche dell'utente, a ridistribuire opportunamente. 
Sia in un caso che nell'altro vi sono dei limiti posti 
dalla capacità di memoria del computer e dalle 
possibilità grafiche di rappresentazione dello 
schermo video. Per la prima delle due ragioni i 
campioni sparsi sono limitati a 60 (un numero 
superiore, comunque, non sarebbe molto agevo- 
le da inserire da tastiera), mentre per la seconda 
le classi argomentali in cui ciascuna distribuzione 
pg essere suddivisa sono superiormente limitate 
a 30. 

Nel caso in cui si sia scelto di introdurre dati già 
raccolti e distribuiti in classi, si può scegliere tra 
altre due alternative: 

a) inserire dati a classi argomentali ad intervallo 
numerico; 

b) inserire dei dati che siano accoppiati non ad 
un particolare valore di un attributo, ma ad una 
classe astratta, per esempio un particolare pro- 
duttore od una nazione. 

Nel caso a), dopo aver introdotto il numero di 
classi desiderate, viene chiesto all'utente di indi- 
care se si desidera utilizzare classi di ampiezza 
costante (c) o variabile (v). Nel primo caso viene 
chiesto all'utente di inserire il valore corisponden- 
te al limite inferiore della prima classe e l'ampiez- 
za delle classi (come detto costante), dopo di 
che il calcolatore provvede ad indentificare i limi- 
ti delle classi al momento di richiedere all'utente, 
di introdurre il valore corrispondente alla frequen- 
za assoluta delle singole classi. 

Dopo di che i dati introdotti, vengono riassunti dal 


è 


calcolatore in uno specchietto riportante, per 
ogni classe, numero ordinale che contraddistin- 
gue la classe, intervalli della classe, frequenza 
assoluta, frequenza relativa e frequenza cumula- 
ta; queste ultime approssimate alla terza cifra 
decimale, per cui valori inferiori danno luogo a 
frequenze nulle anche nel caso in cui la frequen- 
za assoluta sia diversa da zero. 

Nel caso in cui si preferiscano classi ad ampiez- 
za variabile, il calcolatore provvederà a chiedere 
i limiti della prima classe, dopo di che chiederà 
all'utente di segnalare solo il limite superiore delle 
classi successive che sono, ovviamente, pensate 
contigue, dopo di che il programma procede 
come nel caso precedente. 

Se, invece, si è scelto di introdurre dati accop- 
piati a particolari classi 0 categorie, dopo aver 
indicato il numero delle classi desiderate, è possi- 
bile indicare, per ogni classe, una stringa alfanu- 
merica di venti caratteri al massimo, con cui 
identificare la classe ed il valore numerico asso- 
ciato alla classe suddetta. Questo valore viene 
ovviamente interpretato come frequenza assolu- 
ta di una classe che abbia valore centrale dell'in- 
tervallo argomentale uguale a uno perogni clas- 
se. Nella rappresentazione sintetizzata che ap- 
pare quindi su video, manca dunque il valore di 
frequenza cumulata, che perde in questo caso di 
significato. Si deve infatti notare che alla tabella 
così introdotta non è associato alcun tipo di ordi- 
namento o classificazione. Si è ritenuto opportu- 
no inserire questa classe un po' anomala di varia- 
bili statistiche per permettere la rappresentazio- 
ne di tabelle o specchietti suddivisi per categorie 
(ad esempio la produzione annua di acciaio per 
ciascuno dei paesi della C.E.E., o il reddito medio 
mensile per ciascuna delle regioni italiane). 

Nel caso in cui si desideri introdurre dei campio- 
ni sparsi, dopo aver indicato il loro numero, ed 
averli introdotti uno a uno, il calcolatore chiede, 
anche in questo caso, se si desiderino classi argo- 
mentali ad ampiezza costante o variabile, dopo 
di che provvede a ridistribuire i campioni raccolti 
tra le varie classi. Da notare ilfatto che, se uno dei 
campioni raccolti non rientra nei limiti estremi 
indicati, i limiti suddetti (per la precisione, il limite 
inferiore della prima classe o il superiore dell'ulti- 


ma), vengono “aggiustati”, inmodo da contene- 
re il campione dal valore “esuberante”. 

Dopo aver mostrato il solito riassunto, il calcola- 
tore ritorna al Menu principale. A questo punto, 
all'utente si offrono altre possibilità. Innanzitutto 
può richiedere l'introduzione di nuovi dati, vuoi 
da tastiera (digitandoli), vuoi caricandoli da na- 
stro; nel qual caso il calcolatore si premura di 
chiedere se l'utente desidera distruggere ivecchi 
dati. Altrimenti è possibile scegliere una delle al- 
tre alternative. Nel caso in cui il calcolatore agi- 
sca su dati sparsi introdotti dall'utente, si può 
chiedere di ridefinire le classi dei valori argomen- 
tali; nel caso in cui si cerchi di accedere a questa 
opzione disponendo di dati già distribuiti per 
classi al momento della loro introduzione da ta- 
stiera o del loro caricamento da nastro, ilcalcola- 
tore notifica il fatto che non dispone di dati disag- 
gregati e non è perciò nelle condizioni di poter 
ridistribuire i singoli campioni nelle nuove classi di 
definizione. 

In tutti i casi suddetti si può invece provvedere a 
correggere i valori numerici introdotti, disponen- 
do sia di valori di frequenza assoluta, sia associa- 
ta ad una classe numerica che ad una classe 
particolare, sia di valori argomentali su singoli 
campioni da ridistribuire. 

In questo caso ciascun valore numerico verrà 
riproposto e verrà offerta all'utente la possibilità di 
modificarlo 0 di passare ad esaminare un nuovo 
valore, dopo di che viene mostrata di nuovo la 
tabella riassuntiva modificata dalla nuova situa- 
zione corretta. 

Si è preferito riproporre all'utente ciascun valore 
numerico, piuttosto che chiedergli di identificario 
in qualche modo (per il suo valore stesso, o per il 
suo numero di ordine), poiché questo potrebbe 
essere impossibile al momento di caricare da 
nastro dati vecchi, di cui ci si sia dimenticati. 

È ovviamente possibile, in ogni caso, registrare i 
dati su nastro in modo che possano essere ricari- 
cati all'occorrenza. In questo caso si chiede di 
indicare un nome (massimo 15 caratteri) che 
possa contraddistinguere il file(e che, a scanso di 
possibili agnizioni, è consigliabile riportare esatta- 
mente sulla cassetta che viene utilizzata) e che 
può essere utilizzato come “chiave” per accede- 
re al file. 

Si può quindi accedere alla sezione di pro- 
gramma che offre una rappresentazione sinteti- 
ca della variabile statistica. Il computer, in questo 
caso, presenterà un nuovo menu che permette di 
scegliere fra ciascuno degli indici statistici sud- 
detti (media, valore quadratico medio, varianza, 
scarto quadratico medio, indice di skewness e 
coefficiente gamma), più un generico momento 
di polo theta e indice k. 

In quest'ultimo caso, dopo aver richiesto di indi- 
care il valore k, corrispondente all'esponente del 
momento suddetto, il computer offre un ulteriore 
menu composto dai principali valori argomentali 
utilizzabili come polo theta; quali media, moda, 


mediana, primo e terzo quantile; oltre alla possi- . 


De di indicare qualsiasi valore generico per 
heta. 

Ovviamente i valori di moda, mediana, primo e 
terzo quantile, oltre al dato riguardante la popo- 
lazione totale, che poco ha a che fare con i 
precedenti, ma che è sempre interessante cono- 
scere, possono essere richiesti accedendo alla 


opportuna sezione, che, sempre con il sistema 
del menu, mette questi dati a disposizione dell'u- 
tente. ll calcolatore, provvede, ovviamente a no- 
tificare eventuali distribuzioni zero o plurimodali. 

Analogamente nella sezione sopra descritta, 
per la rappresentazione sintetica della variabile 
statistica, nel caso in cui si cerchi di utilizzare il 
valore di moda per il calcolo dell'indice di skew- 
ness o come polo di momenti di indice qualsiasi, 
nel caso in cui questo valore sia zeromodale (e 
quindi di significato incerto) o non ne sia possibile 
la identificazione univoca perche la distribuzione 
è plurimodale, viene notificata all'utente l'impos- 
sibilità di compiere il calcolo richiesto ed il perché 
di questo impedimento. 

È possibile quindi accedere alla sezione che 
offre una rappresentazione grafica della variabi- 
le statistica, sotto forma di istogrammi di frequen- 
za. ll menu di questa sezione offre tre possibilità. 
L'unica limitazione riguarda i dati distribuiti tra 
classi particolari, di cui non avrebbe alcun signifi- 
cato dare una rappresentazione sotto forma di 
frequenza cumulata. 

In ogni caso, è comunque possibile ottenere 

una rappresentazione grafica della frequenza 
assoluta e della frequenza relativa. Nel primo ca- 
so, in ordinata vengono segnati i valori argomen- 
tali di frequenza assoluta, scegliendo il limite su- 
periore dell'asse in base al massimo della fre- 
quenza assoluta tra le varie classi ed i valori inter- 
medi vengono segnati in modo da offrire all'uten- 
te un riferimento quanto più è possibile chiaro, 
compatibilmente ai limiti di spazio del video. Nel 
secondo caso, invece, il limite superiore dell'ordi- 
nata è posto ad uno, mentre i valori intermedi 
sono posti di decimo di unità in decimo di unità, 
in modo da consentire una efficace visione della 
frequenza relativa “per mille” di ogni classe. Ana- 
logamente a quest'ultimo caso, viene realizzato il 
diagramma di frequenza cumulata, quando si- 
gnificativo, sulla base, appunto, delle frequenze 
aggregate. 
In ogni caso, comunque, l'ascissa riporta classi di 
ampiezza costante ed identificabili per il numero 
ad esse associato. Dato che non è stato possibile 
separare le singole colonne che rappresentano 
l'istogramma a barre, poiché ciò avrebbe porta- 
to a pesanti limitazioni sul numero di classi effica- 
cemente rappresentabili (le avrebbe pratica- 
mente dimezzate), si è ritenuto opportuno di con- 
traddistinguere le classi “riquadrandole” grafica- 
mente e scegliendo l'ampiezza della rappresen- 
tazione in base al numero delle classi stesse per 
maggior chiarezza. 

Su ognuno dei tre istogrammi la rappresenta- 
zione utilizza una precisione pari all'ottavo del 
carattere grafico offerto (in altezza) dal CBM 
4032, 3032 e dal PET 2001, in modo da offrire la 
miglior precisione possibile, compatibilmente 
con le qualità grafiche del computer. 

Un ultima precisazione solo per indicare un mi- 
nimo di bibliografia spicciola: per ogni informa- 
zione sulla statistica, mi sono servito dell'ottimo 
testo universitario su cui ho, a suo tempo, prepa- 
rato l'esame di Scienza delle misure, si tratta, co- 
me chi ha frequenrato il Politecnico di Milano, 
avrà facilmente immaginato, di “Fondamenti di 
Statistica”, della Prof. Giovanna Togliatti, edito 
dalla Hoepli. A 
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Dimensionamento delle matrici: 

W$(25) — Vettore indirizzamento video. 

NC(30,5) — Contenente i dati per classi argomentali fino ad un numero massimo di 30. 
NCS(30) — Necessaria per contenere le stringhe alfanumeriche associate ad eventuali classi 
particolari. 

C(60) — Contenente un numero di campioni sparsi, da ridistribuire tra le varie classi, fino ad 
un massimo di 60. 

F(8) — Vettore di flag. Consente di segnalare l’accesso alle varie sezioni del menu; viene 
utilizzato per impedire che si richiami una sezione prima che siano state compiute delle 
operazioni necessarie a fornire i dati su cui la sezione stessa è chiamata ad operare (evita, ad 
esempio, che si acceda alle sezioni di rappresentazione, prima di aver acquisito dati da nastro - 
sez. 8 - o da tastiera - sez. l). 

Questa frase DATA contiene i numeri di POKE corrispondenti ai caratteri necessari per la 
rappresentazione grafica. 

I primi nove numeri di POKE corrispondono a valori crescenti nella posizione della riga intera 
di spessore uno (il primo corrisponde a ‘‘spazio vuoto”, il secondo ad un carattere rappresenta- 
to da una riga intera di spessore uno ai piedi della matrice 6x8 del carattere di video, il nono ad 
un carattere rappresentato da una riga intera di spessore uno alla sommità della matrice), i 
secondi nove, che vengono utilizzati nella rappresentazione dei valori di frequenza, corrispon- 
dono a valori crescenti nella campionatura dei caratteri (anche qui il primo corrisponde a 
“spazio vuoto”, il secondo a 1/8 di carattere, il terzo a 2/8, e così via fino all’ultimo, che 
corrisponde ovviamente al carattere negativo ‘“pieno"). 

L'istruzione PRINT CHRS$(14), consente di utilizzare l'opzione disponibile sul CBM4032, che 
permette di scegliere il set di caratteri alfanumerici minuscoli, rinunciando ai caratteri grafici, e 
di usufruire dell’interlinea tra le righe, espandendo il video. Ovviamente gli utenti di CBM 3032 
devono sopprimere l'istruzione suddetta. 

Gestione del menu principale. In particolare: 

20-110 — Display del menu. 

120-130 — Acquisizione della scelta effettuata ed esame sulla sua correttezza. 

140-170 — Ulteriori esami sulla correttezza della scelta dell’utente, relativamente alle opera- 
zioni precedentemente compiute. In particolare: 

140 — Se non si hanno dati su cui operare e si richiede una operazione diversa da quelle di 
“inserimento dati” (R=1) o “lettura dati da nastro” (R=8) o “fine” (R=0), il calcolatore 
accede ad una subroutine che provvede a segnalare, l'errore, quindi ricicla. 

150-160 — Se si richiede l’inserimento di nuovi dati od il loro caricamento da nastro dopo aver 
già acquisito dati in uno dei due modi si accede ad una subroutine che provvede a sincerarsi 
della volontà dell’utente di distruggere i dati esistenti. 

170 — Se si richiede l’accesso alla sezione di ridefinizione delle classi di valori argomentali, 
senza disporre di dati disaggregati (cioè di campioni sparsi), si accede alla subroutine che 
provvede a segnalare l’errore. 

180 — Si provvede a smistare il corso del programma verso la subroutine corrispondente alla 
operazione richiesta dall'utente. 

190 — Esame sulla terminologia del programma. 

200 — Clearing di schermo, quindi il programma ricicla. 

Viene segnalata la terminazione del programma. 

Sezione di inserimento dati da tastiera. In particolare: 

1010-1050 — Si offre all'utente l'alternativa tra inserire dati già distribuiti in classi argomentali 
o non ancora distribuiti, si esamina la correttezza della risposta e si provvede ad accedere alle 
sezioni desiderate, in base all’alternativa scelta. 

1051-1057 — Si offre all’utente l'alternativa tra classi argomentali ad intervallo numerico e 
classi argomentali particolari; si acquisisce la risposta e la si esamina. 

1058 — Se si è scelta la seconda alternativa si accede alla opportuna subroutine. 
1060-1090 — Si provvede ad introdurre i dati in base alla scelta della prima alternativa. In 
particolare: 

1060-1070 — Si accede alla subroutine che offre all'utente l'alternativa tra classi ad ampiezza 
costante o variabile, quindi si apre il ciclo per l'acquisizione dei dati, classe per classe 
mostrando l’intervallo di ogni classe. 
1080-1087 — Si acquisisce il dato richiesto e si effettuano controlli sulla correttezza del suo 
formato. 

1090 — Si chiude il ciclo e si accede alla subroutine che provvede a mostrare la situazione 
riassuntiva dei dati introdotti (intervalli di classe, frequenza assoluta, frequenza relativa e 
frequenza cumulata). 

1500-1530 — Si acquisiscono i dati sotto forma di campioni sparsi da ridistribuire. In 
particolare: 

1500-1525 — I valori corrispondenti ai singoli campioni vengono introdotti da tastiera, dopo 
aver effettuato opportuni controlli sulla loro numerosità. 

1530 - Si accede nell'ordine ai sottoprogrammi responsabili della definizione delle classi 
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argomentali (ad ampiezza costante o variabile, GOSUB15000), della ridistribuzione dei 
campioni tra le varie classi (GOSUB17000) e del riassunto della forma dei dati suddetti 
(GOSUBI16000). 

2000 Questa subroutine, in tutto e per tutto simile alla riga 1530, consente, qualora si disponga di 
dati disaggregati, la ridefinizione delle classi di valori argomentali. 

3000-3990 Questa sezione presenta il sotto-menu di primo livello che consente di ottenere una rappresen- 
tazione sintetica delle variabili statistiche introdotte. In particolare: 
3000-3080 — Display del sotto-menu. 
3090-3100 — Acquisizione della scelta effettuata dall'utente ed esame sulla sua correttezza. 
3110 - Si provvede a smistare il flusso del programma verso le opportune subroutine che 
effettuano il calcolo dell'indice statistico richiesto. 
3120-3125 — Vengono compiuti degli esami su alcune variabili per stabilire quale debba essere 
l’evolvere del programma. In particolare: 
3120 — Esame sulla terminazione del sotto programma. 
3123 — Nel caso in cui si sia scelta la settima sezione del sottomenu (Momento k-esimo rispetto 
al polo theta), si provvede a riproporre il sottomenu dopo l’accesso alla sezione opportuna, 
prima di riciclare. 
3125 — Temporizzazione dell'uscita dei risultati, clearing della parte di schermo ai piedi del 
menu, quindi il programma ricicla, chiedendo l'introduzione di una nuova scelta. 
3/30 — Viene segnalata l'uscita dal sottoprogramma che gestisce il sotto-menu di primo 
livello. 
3150 — Questa sezione provvede a richiamare la subroutine di calcolo della media ed a dare il 
display del risultato. 
3200-3210 — Calcolo del valore quadratico medio e display del risultato. Si noti che il calcolo 
non è demandato ad una apposita subroutine, come nel caso della media, poiché il calcolo 
dell'indice “valore quadratico medio”, non è richiesto nel calcolo di alcun altro indice. 
3300 — Si richiama la subroutine che calcola la varianza e si mostra il risultato. 
3400 — Si accede al sottoprogramma di calcolo dello scarto quadratico medio e si provvede a 
dare opportunamente display del risultato. 
3500-3530 — Questa sezione è responsabile del calcolo dell'indice di skewness. In particolare: 
3500 — Se si è scelto di rappresentare classi argomentali particolari, si richiama il sottopro- 
gramma che notifica all'utente come il calcolo dell'indice in questione sia privo di significato 
per una variabile statistica così costruita. 
3505 — Si accede nell'ordine alle subroutine responsabili del calcolo della media, della 
determinazione della moda e, nel caso in cui la distribuzione sia zero-modale, alla subroutine 
che lo notifica all’utente. 
3510 — Analogamente all'ultima parte della riga precedente, per quanto riguarda una distri- 
buzione plurimodale. 
3520 — Si accede alla subroutine che calcola lo scarto quadratico medio, quindi con i dati così 
ottenuti si provvede al calcolo effettivo dell'indice di skewness. 
3530 — Si mostra il risultato all'utente in forma opportuna. 
3600-3610 — Calcolo del coefficiente gamma. In particolare: 
3600 — Analoga a riga 3500. 
3605 — Si accede ai sottoprogrammi che calcolano la media e lo scarto quadratico medio, 
quindi si provvede a calcolare il momento del terzo ordine rispetto alla media. 
3607 — Si calcola il coefficiente gamma (momento del terzo ordine rispetto alla media, diviso 
per il cubo dello scarto quadratico medio), quindi si provvede ad annullare il valore del 
coefficiente quando esso è inferiore ad un valore molto basso (9E-9=9x10t-9). Degli errori di 
troncamento, infatti, renderebbero il calcolo del coefficiente gamma da parte del calcolatore 
errato, poiché anche distribuzioni perfettamente simmetriche, si vedrebbero attribuire un 
seppur lievissimo grado di asimmetria. 
3610 — Display del risultato. 
3700-3990 — Questa sezione, che rappresenta un sotto-menu di secondo livello, provvede al 
calcolo di un momento di ordine k, il cui valore deve essere indicato dall'utente, offrendo 
all’utente stesso, numerose possibilità per quanto riguarda il polo theta del momento stesso. In 
particolare: 
3700-3750 — Acquisizione del valore k e display del sottomenu di secondo livello. 
3760-3770 — Acquisizione della scelta effettuata dall'utente e test di correttezza. 
3780 — Distribuzione del flusso di richiesta verso le opportune sotto-sezioni. 
3790 — Esame sulla terminazione del sottoprogramma. 
3800 — Analoga alla riga 3125. 
3810 — Uscita dal sotto-menu di secondo livello e rientro nel sotto-menu di primo livello. 
3820 — Si accede al sottoprogramma che calcola la media, quindi, dopo aver opportunamente 
inizializzato il valore del polo theta, si accede al sottoprogramma che calcola il momento di 
indice k e avente TH per polo. 
3830 — Si mostra il risultato. 
3850 — Analoga alla riga 3500. 
3853-3855 — Analoghe alle righe 3505-3510. 
3860 — La variabile TH viene inizializzata al valore calcolato della moda, quindi si accede al 
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4000-4500 


5000-5399 


6000-6570 


sottoprogramma che calcola effettivamente il momento di indice k e polo theta. 
3890-3900 — Calcolo del momento di indice k avente per polo la mediana. 

3920-3930 — Calcolo del momento di indice k avente per polo il I° quantile. 

3950-3960 — Calcolo del momento di indice k avente per polo il III° quantile. 

3970 — Qualora si desideri utilizzare un valore del polo theta generico, si acquisisce tale valore 
da tastiera, accedendo quindi alla sezione che compie praticamente il calcolo suddetto. 
3980-3990 — Si mostra in forma opportuna il risultato. 

Sotto-menu di primo livello per la determinazione della moda, della mediana, dei quantili e la 
popolazione totale. In particolare: 

4000-4025 — Display del sotto-menu. 

4050-4060 — Acquisizione della scelta dell'utente e test di correttezza. 

4070 — Sì provvede a richiamare opportunamente la subroutine responsabile della determina- 
zione dei valori argomentali desiderati dall'utente. 

4080 — Esame sulla terminazione del sottoprogramma. 

4090 — Analoga alla riga 3125. 

4095 — Uscita dal sotto-menu di primo livello e rientro nel menu principale. 

4100-4120 — Determinazione della moda, In particolare: 

4100 — Analoga alla riga 3500. 

4105-4110 — Analoghe alle righe 3505-3510. 

4120 — Viene mostrato il risultato. 

4200-4205 — Determinazione della mediana. In particolare: 

4205 — Si accede alla subroutine responsabile della determinazione della mediana, quindi sì 
mostra il risultato. 

4300-4305 — Analogamente alla sezione precedente per quanto riguarda il I° quantile. 
4400-4405 — Analogamente alle sezioni precedenti per il III° quantile. 

4500 — Viene mostrata la popolazione totale. Questo valore non ha molto a che fare con i 
precedenti (non viene infatti calcolato, ma è noto dall'insieme dei dati stessi della distribuzio- 
ne), ma è sempre molto interessante conoscerlo. 

Sotto-menu di primo livello per la rappresentazione grafica della distribuzione statistica. In 
particolare: 

5000-5045 — Display del sotto-menu. 

5050-5060 — Acquisizione della scelta dell’utente e test di correttezza sulla scelta effettuata. 
5065 — Nel caso in cui si è scelto di rappresentare classi argomentali particolari, e si sia 
richiesta una rappresentazione grafica dell’istogramma della frequenza cumulata, il program- 
ma accede alla subroutine che provvede a comunicare all'utente come l’organizzazione della 
variabile in questione renda la rappresentazione priva di significato. 

5070 — Smistamento del flusso del programma alle opportune sezioni. 

5080 — Test di terminazione del sottoprogramma. 

5090 — Il programma ricicla, mostrando nuovamente il menu. 

5095 — Uscita dal sotto-menu e rientro nel menu principale. 

5100-5199 — Questa sezione organizza la rappresentazione dell’istogramma della frequenza 
assoluta, richiamando, in un ordine opportuno, una serie di sottoprogrammi, che consentono 
di acquisire i dati necessari alla rappresentazione. In particolare: 

5/00 — Si accede alla subroutine che determina il valore di moda, necessario per dimensionare 
l’asse delle ordinate, in base al più alto valore di frequenza assoluta che è necessario rappresen- 
tare. Quindi si accede al sottoprogramma che rappresenta su video gli assi coordinati, 
necessari alla rappresentazione. 

5110 — Nel caso in cui si siano scelte classi argomentali particolari, si tronca il valore di moda 
approssimandolo per eccesso. 

5120 — Viene determinato il valore associato alla unità elementare di rappresentazione, pari 
ad un ottavo del carattere video. Quindi si accede alla subroutine che rappresenta la scala dei 
valori sull’asse delle ordinate. In serie, dopo aver inizializzato a 2 il valore della variabile W (il 
che sta ad indicare che si desidera rappresentare i valori di frequenza assoluta), si richiama il 
sottoprogramma che rappresenta le barre dell’istogramma. 

5199 — Si accede alla subroutine che acquisisce il segnale da parte dell'utente per rientrare nel 
sotto-menu di primo livello. I comandi che consentono di rilasciare la opzione di interlinea, e 
quindi di riallocarla, sono necessari per aver una rappresentazione grafica continua e che 
disponga dei caratteri grafici (rinunciando, ovviamente, ai caratteri alfanumerici minuscoli). 
5200-5299 — Analoga alla sezione precedente per quanto riguarda la rappresentazione 
dell’istogramma della frequenza relativa. 

5300-5399 — Analoga alle sezioni precedenti per il caso di istogramma della frequenza relativa 
cumulata. 

Subroutine di correzione dati. In particolare: 

6010 — Se si opera su campioni sparsi si salta ad una opportuna sezione di programma. 
6020 — Analogamente se si utilizzano classi a valori argomentali particolari. 

6030-6110 — Subroutine di correzione dati per dati già distribuiti in classi argomentali ad 
intervallo numerico. In particolare: 

6030-6050 — Apertura del ciclo che percorre l’intera matrice NC (NC,$), display delle attuali 
specifiche della classe. 
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6060-6080 — Viene offerta all'utente la possibilità di modificare il valore di frequenza assoluta 
della I-esima classe. Viene acquisita la risposta ed analizzata la correttezza di questa. 

6090 — Se non si vuole modificare la I-esima registrazione si salta al rinvio del ciclo per 
ottenere i dati della classe successiva. 

6100-6105 — Modifica del I-esimo valore di frequenza assoluta. 

6110 — Chiusura del ciclo e accesso alla subroutine che mostra la solita tabella sintetica con 
intervallo di classe, frequenza assoluta, frequenza relativa e frequenza relativa cumulata. 
6250-6330 — Gestione correzione dati per dati già distribuiti in classi argomentali particolari. 
In particolare: i 

6260 — Diversamente dalla sezione precedente, viene menzionato non l’intervallo di classe 
(qui inesistente), ma la caratteristica che contraddistingue la classe. 

6500-6570 — Correzione dati per dati non distribuiti in classi argomentali. In particolare: 
6500-6565 — Viene mostrato e modificato, su richiesta dell'utente, direttamente il valore 
dell’I-esimo campione. 

6570 — Prima di accedere alla subroutine che mostra la situazione riassuntiva, si provvede ad 
azzerare i valori di frequenza assoluta, relativa e cumulata per la matrice NC (NC,5); quindi si 
richiama la subroutine responsabile della ridistribuzione dei campioni tra le varie classi. 
Subroutine di registrazione dati su nastro. In particolare: î 

7010-7020 — Si richiede all’utente di introdurre un nome distintivo del file. È superfluo notare 
come questo nome costituisca una chiave di accesso al file e rappresenti pertanto una possibile 
fonte di errori in caso di dimenticanze o errori di ortografia. 

7055-7057 — Vengono normalizzati i valori di due variabili stringa in modo da non avere 
problemi nella loro rappresentazione su nastro. 

7090 — Solo nel caso in cui si sia scelta una distribuzione dati a classi argomentali particolari si 
provvede a salvare anche il contenuto della matrice NCS$(NC). 

Subroutine di caricamento dati da nastro, la subroutine è esattamente simmetrica rispetto alla 
precedente. 

Questa subroutine viene richiamata nel caso in cui si cerchi di compiere operazioni illecite. 
Subroutine di temporizzazione per l’uscita delle scritte. 

Subroutine di clearing della parte inferiore dello schermo. 

Subroutine analoga alla precedente, sia per compiti che per forma; l’unica differenza è data 
dalla fascia che viene cancellata. 

Questa subroutine provvede a fare da “trappola”, su ogni richiesta di inserimento dati, 
qualora vi siano già dati residenti in memoria centrale. L'esito viene segnalato dal valore della 
variabile F1. 

Questo sottoprogramma viene richiamato nel caso in cui si cerchi di ridefinire le classi 
argomentali per dati non disaggregati. 

Subroutine di definizione classi argomentali. In particolare: 

15000-15065 — Sezione del sottoprogramma comune sia alla definizione delle classi ad 
ampiezza costante, sia delle classi ad ampiezza variabile: In particolare: 

15008 — Test di correttezza per il numero di classi desiderate. Il limite superiore è posto per 
ragioni di occupazione di memoria; il limite inferiore - due classi - ha ragioni logiche, vedi il 
requisito d), richiesta alla organizzazione della popolazione. 

15009 — Azzeramento della matrice NC. 

15060 — Ad entrambi i tipi di suddivisioni viene richiesto di introdurre il limite inferiore della 
prima classe. 

15070-15090 — Questa sezione è responsabile della definizione delle classi argomentali ad 
ampiezza costante. In particolare: 

15080 — In base al valore indicato - AC - per l'ampiezza delle classi, vengono fissati i limiti 
inferiori (primo ciclo) e superiori delle classi successive alla prima. 

15500-15550 — Sezione responsabile della definizione di classi argomentali ad ampiezza 
variabile. In particolare: 

15505 — Test di correttezza sul limite superiore della prima classe, deve, ovviamente, essere 
maggiore del limite inferiore. 

15507-15550 — Per le classi successive alla prima viene richiesta l'introduzione solo del valore 
corr.spondente al limite superiore, poiché le classi vengono considerate contigue per default. 
Questa subroutine si occupa di calcolare e rappresentare su video i dati riassuntivi essenziali di 
ogni distribuzione. In particolare: 

16000 — I due cicli in serie calcolano la popolazione totale ed attribuiscono ad ogni classe il 
valore di frequenza relativa che le spetta. 

16010 — Viene attribuita ad ogni classe un valore della frequenza relativa cumulata, dato dalla 
somma della frequenza relativa della classe in esame, più quelle delle classi che la precedono. 
16020 — Viene determinato il punto medio della I-esima classe. L'importanza di questo valore 
è data dal fatto che esso rappresenta l’intera classe. 

16030 — Si accede alla subroutine che stampa una opportuna intestazione e si inizializzano le 
variabili che consentono di percorrere la matrice NC. 

16040 — Se la pagina video è interamente riempita, si richiama il sottoprogramma che 
consente di acquisire il segnale da parte dell'utente, che permette di proseguire. 

16060 — Se il valore di frequenza relativa è talmente piccolo da dar luogo ad una rappresenta- 
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zione in forma esponenziale, il suo valore viene assimilato, nella tabella riassuntiva, a zero, 
anche se la frequenza assoluta per quella classe è non nulla; ciò a causa del fatto che nella 
tabella riassuntiva la rappresentazione è limitata alla terza cifra decimale approssimata per 
difetto. 
16073 — Analogamente a quanto sopra per la frequenza cumulata. 
16075 — Se il valore della frequenza cumulata si approssima ad uno a meno di un millesimo, il 
che può verificarsi per problemi di troncamento interni al calcolatore, esso viene posto a uno. 
16080 — Vengono mostrati i dati per la I-esima classe: 
I$ — Numero cardinale della classe. 
N1$ — Intervallo di classe. 
N2$ — Frequenza assoluta. 
N3$ — Frequenza relativa. 
N4$ — Frequenza relativa cumulata. 
16090 — Come sopra, nel caso di classi argomentali particolari. In particolare: 
NOS$ — Caratteristica della classe (sostituisce l'intervallo). 
Inoltre manca la frequenza relativa cumulata, che, data la costruzione della distribuzione, non 
avrebbe senso. 
16500-16530 — Questo sottoprogramma si occupa di attribuire a ciascuna rappresentazione la 
giusta intestazione. In particolare: 
16505-16510 — Intestazione per classi argomentali ad intervallo numerico. 
16520-16530 — Intestazione per classi argomentali particolari. 
16700-16720 — Questa subroutine consente di segnalare il cambio di pagina sulla tabella 
riassuntiva e viene richiamata anche per consentire il ritorno al sottomenu di primo livello 
nella rappresentazione grafica. 

17000-17040 Questo sottoprogramma si occupa di ridistribuire i campioni sparsi raccolti dall'utente in 
classi argomentali costruite in base alla specifiche dell’utente stesso. In particolare: 
17005 — Se il valore del campione è inferiore al limite inferiore della prima classe, questo limite 
viene modificato per contenere il campione stesso. 
Questa funzione è implementata automaticamente dal calcolatore, senza chiederne esplicita- 
mente il comando da parte dell’utente, poiché essa è generalmente desiderata. Se la violazione 
è conseguenza di un errore nell’introduzione dei dati, questo errore è facilmente correggibile 
mediante l'apposita funzione. 
17010 — Analogamente alla riga precedente per una violazione del limite superiore dell'ultima 
classe. 
17020 — Viene aggiornato il valore di frequenza assoluta della classe i cui limiti contengono 
l’-Hesimo campione. 


18000 Sottoprogramma di calcolo della media. 

19000 Calcolo della varianza. Si accede alla subroutine della riga precedente poiché la media 
rappresenta il polo del momento del secondo ordine, che si identifica con la varianza. 

20000 Scarto quadratico medio. Si accede, semplicemente, alla subroutine di calcolo della varianza e 


se ne estrae, quindi, la radice quadrata. 

21000-21070 Sottoprogramma di determinazione della moda. In particolare: 

21000 — Inizializzazione di alcune variabili ed apertura del ciclo. Il test tende a stabilire se la 
frequenza assoluta della I-esima classe è superiore al massimo relativo. 

21010 — Se la frequenza assoluta è uguale al massimo relativo, la distribuzione è plurimodale, 
viene aggiornata la variabile opportuna. 

21020 — Se la frequenza assoluta è maggiore del massimo relativo, la distribuzione non può 
essere plurimodale, viene aggiornato il massimo relativo. 

21040 — Se la classe di moda è la prima o l’ultima della distribuzione, essa è zeromodale, ciò 
viene segnalato attraverso una opportuna variabile. 

21060 — Se la distribuzione non è né zeromodale né plurimodale, essa è unimodale, il valore di 
massimo assoluto viene attribuito alla moda. 

22000-22020 Questa subroutine comunica all'utente il fatto che la distribuzione sia zero 0 plurimodale, nel 
caso in cui il fatto impedisca il calcolo di alcuni indici (ad esempio l'indice di skewness). 

23000 Calcolo del generico momento di ordine k e polo theta. 

24000 Subroutine per la determinazione della mediana. La variabile CO inizializzata a 0.5, sta ad 
indicare che si desidera conoscere l’ascissa del valore argomentale che divide a metà la 
frequenza cumulata, a questo scopo si accede ad una subroutine che consente di servire sia le 
richieste riguardanti la mediana, sia quelle riguardanti i quantili. 


25000 Come sopra per il I° quantile (C0=.25). 
26000 Idem per il III° quantile (C0=.75). 
27000 Questa subroutine è responsabile della effettiva determinazione dei quantili (la mediana, 


infatti, non è altro che il secondo quantile). In particolare: 
27000 — Si esamina il caso in cui il quantile appartenga alla prima clase. Ciò è necessario 
poiché la definizione prevede che il valore argomentale sia tale che la somma delle frequenze 
che lo precedono sia inferiore al valore di C0 desiderato, e ciò non ha senso per la prima classe. 
27010 — Viene esaminato il caso generico, l'uscita dal ciclo è assicurata solo dalla soddisfazio- 
ne della condizione posta. 

28000-28060 Acquisizione dei dati per classi particolari. 


29000-29020 Subroutine di diagnostica. 


colari. 


31000-31499 Display assi coordinati. In particolare: 


SS (CBM 


30000-30010 — Sottoprogramma di conversione per distribuzione a classi argomentali parti- 


31000 — L'istruzione PRINTCHRS(142), consente di rinunciare all’interlinea, essa deve essere 


soppressa dagli utenti di CBM 3032. 


32000 Routine di rientro nel sotto-menu di primo livello per la rappresentazione grafica. 
33000-33999 Questa subroutine rappresenta i valori numerici sugli assi delle ordinate per le rappresentazio- 
ni grafiche degli istogrammi della frequenza relativa e della frequenza cumulata. 


34000-34020 Altra subroutine di diagnostica. 


35000-35050 Questa subroutine determina l'altezza ed i caratteri delle barre dell’istogramma. 
36000-36050 Display delle barre dell’istogramma su video. 
37000-37110 Questo sottoprogramma rappresenta sull'asse delle ascisse la suddivisione delle classi argo- 


mentali. 


38000-38999 Subroutine ausiliaria nella rappresentazione degli assi coordinati. 


39000-39999 


STATISTICA 1-D 


6 CLR:Rf="S x Tea lM SIM IN ININIS ISIS ISISININIBINIE 
IMWH$ 25) NCC30, $ (30), 0<(50),F<(8> 
3 DATA32,100,82,70,54.67,638,59,99,32,1 
609,111,121,98,245,247,227,1650 
5 PRINTCHR$< 14) FORI=9T08 READCIO) NEXT 
:FORI=9T08 :READB<I) :NERT T6=150 
15 N=S:FORI=1T025:4$CI>=LEFT$R£,1>:NE 
XT:FORI=1T0N:FCI>)=9:NEXT :PRINT"I" 
20 F2=9:PRINTWH$C(1>)TABC15>)"gdg MENU 
:PRINTWH$(4>TAB<3>" 908 - —-INE" 
35 PRINTH$C6)TABC3)" gi - NSERIMENTO 
DATI" 
40 PRINTHS(8>)TABC3)" g28 - _IDEFINIZION 
E CLASSI DI” 
59 PRINTTAB(7> "VALORI ARGOMENTALI" 
509 PRINTW$C10)TABC3>" 938 - APPRESENTA 
ZIONE SINTETICA" 
79 PRINTH$(12>TABC3)" g4B - VODA, MEDIA 
HA, QUANTILI," 
75 PRINTTABC7> "POPOLAZIONE TOTALE" 
80 PRINTWH$(14>)TAB(3)"s35B - _APPRESENTA 
ZIONE GRAFICA" 
99 PRINTH$C(16>TABC(3)" 358 - -ORREZIONE 
DATI" 
199 PRINTH$<18>TABC3)" g7M - _—EGISTRAZI 
ONE DATI SU NASTRO" 
119 PRINTH$(20)TAB<(3)" 338 - LETTURA DA 
TI DA NASTRO" 
129 GETR$*:IFR$=""THEN120 
1309 R=VALCR$) :IFRCGORR>NTHEN120O 
149 IF(R<C>IANDRC>BANDR<>80ANDF € 1>=9THE 
NGOSUB1090966:G0T0209 
156 IFCRSDIANDR<C>8>0ORF (1) <>1THEN1768 
169 GOSUB136900:IFF1=1THEN129 
1760 IFR=2ANDAB$<>"B"THENGOSUB 14099 :GOT 
0120 
1869 R=R+1:0NRGOSUBS0G, 1000.2000, 3000,4 
600,5004,5000,7000,3000 
190 IFF2=1THENEND 
209 PRINT"3" :G0T026 
5060 F2=1:RETURN 
1900 F(1)=1:BAF="" :PRINT"O"M$C1>TABC19 
>" a -NSERIMENTO DATI I" 
1919 PRINTH$(4>TAB3)" AB —- —ATI GIA” 
DISTRIBUITI" 
1915 PRINTTABC7) "IN CLASSI ARGOMENTALI 
1926 PRINTH$(6>TAB<(3)" gB®B - ATI NON D 
ISTRIBUITI" 
1925 PRINTTAB<(7>)"IN CLASSI ARGOMENTALI 


1939 GETAB$:IFAB$=""THEN1930 


1646 IFAB$<C>"A"ANDAB$<>"E"THEN1036 
1050 IFAB$S="B"THEN1560 

1951 PRINT"I"W#C1>)TABC19)"d ATI DISTR 
IBUITI »" 

1952 PRINTH$C4)TAB(3)" AB - ASSI ARG 


Analogamente a quanto sopra per il calcolo delle barre. 


OMENTALI " 

1653 PRINTTABC7>"AD INTERVALLO NUMERIC 
O” 

16954 PRINTH$<S5>)TAB(3)" SB - ASSI ARG 
OMENTALI" 

16955 PRINTTABC7> "PARTICOLARI " 

16555 GETBA*:IFBA$="" THEN1OS5 

16957 IFBASC>"A"ANDBA8<>"B" THEN1056 

358 IFBR#="B"THENGOSUB283060 :RETURN 

15950 GO0SUBIS006 :FORI=1TONC:PRINT"I",i$< 
1>)TABC(13>I"® CLASSE " 

16576 PRINTWH£4>5TAB<3>".NTERVALLO DI CL 
ASSE :"NCCI,0)"-"NCCI,1> 

159569 PRINTH$C6)TAB(3)"_REQUENZA INDIVI 
0UI"I"® CLASSE" :PRINTTAB<C35; :INPUTNCCI, 


2) CBO0RNC<I,2>)>99999THEN168 


1687 IFNCCI,2)<C>INTCNCCI,2)>) THEN1636 
1599 NEXT :G0SUB15000:RETURN 

1509 PRINTH$(9)TABC(3)" AUMERO CAMPIONI 
RACCOLTI" 

1516 PRINTTABC3)" (MASSIMO 50>";: INPUTC 
:IFCCIORC>SOTHEN1566 

1515 FORJI=ZITOC:C(J>=B NEXT :FORI=1ITOC:G 
OSUBI25SOG 

1520 PRINTH$(12>)TAB<3)">ALORE CAMPIONE 
NR. "I 

1525 PRINTTABC39 3 : INPUTCCI)  IFCCKI>COTH 
EN1520 

1536 NEXT :G0SUB15000 :G0SUBI7?000:GOSUBI 
5960 RETURN 

2099 GO0SUBI5000 :G0SUBI7066 :G0SUBIES6O : 
RETURN 

3696 PRINT"I" :F3=0:F(3d=1 

3465 PRINTIH$(1>)TABC5>" 9 _APPRESENTAZIO 
NE SINTETICA BD" 

3015 PRINTH$(4>)TABC3)" 298 - —INE":PRIN 
TH$C(6>TABC3)" 18 — \EDIA" 

3020 PRINTWH$<8>TAB(3)" 28 - xALORE QUA 
DRATICO MEDIO" 

36039 PRINTH$C160>TAB(3>" 938 - >ARIANZA" 
2040 PRINTWH$C12)TABC(3)" 48 - eCARTO QU 
ADRATICO MEDIO" 

3650 PRINTH$(14)TAB<(3>" gom 
SKEWNESS " 

3059 PRINTH$(165>TABC(3>" 958 
NTE GAMMA" 

30970 PRINTH$C13>)TABC3>" d78 - \OMENTO K 
—ESIMO RISPETTO" 

3680 PRINTTAB<(7)"AL POLO THETA" 

3696 GETRS$*:;IFRS$=""THEN3090 

3169 RS=VAL<(RS£> :IFRS<CB0RRS>?THEN3696 
3119 RS=RS+1 :ONRSGOSUB3130,3150,3200,3 
300, 3400.2500, 3500, 3700 

3126 IFF3=1THENRETURN 

3123 IFF4=1THENF4=6:PRINT"I" :G0T03005 
3125 GOSUBI1999:G0T03090 

3130 F3=1 :RETURN 


aNDICE DI 


-QEFFICIE 


Seguito REMarks. 


Figura 1 - Il listato Sta- 
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20 - 1984 « Bit 


3150 GO0SUBISAG0:PRINTHE (22) TAB(3>" F\ED 
IA:B"M:RETURN 

3200 VOM=9:FORI=ITONC :VOM=VOM+ CNCCI,5) 
12) #NCCI,35: NEXT 

32109 PRINTH$22)TAB<3)" 3-ALORE QUADRAT 
ICON" :PRINTTABC3)" MEDIO :M"YOM:RETURN 

3396 G0SUBISADA :#RINTIS 225 TABC3)" DAR 
IANZA I" RETURN 

3400 GOSUB2BGGG :PRINTIHS(225TABC3)" I9CA 
RTO QUADRATICO MEDIO :#"S0OM:RETURN 

3500 IFBA$£="B"THENGOSUB2IG00 :RETURN 
3505 SK=9:G0SUB130900:G0SUB21000:IFZM=1 
THENS$="ZEROMODALE" :G0SUE22000 :RETURN 
3510 IFPM=1THENS$="PLUFIMODALE" :G0SUB2 
2000 :RETURN 

3520 GOSUBZIAGA :SK=<M-MODA> SOM 

3520 PRINTH$(22)TAEC3)"@.NDICE DI SKEW 
NESS :B"SK :RETURN 

2609 IFBAS="B"THENGOSUB29B09 RETURN 
3605 CG=9:G0SUE1S8900:G0SUB2000A :FORI=1 
TONC:CG=CG+<<NC<CI,5)-M> TB) #NCCI,3) sNEXT 
3607 C6=CG/(SOMT3) : IFABSC(C6) C3E-STHENC 
Ge 

2619 PRINTH$(22)TAB<(3)"@-DEFFICIENTE G 
AMMA BB" CG :RETURN 

3709 PRINT"I":F4=0 

3795 PRINTWH$<1>TABC3)" A SOMENTO K-ESIM 
O AL POLO THETA I" 

3707 PRINTM$(3>)TABC(3)"_SPONENTE K="53:I 
NPUTK:PRINTH$5>)TAB(3)"9 IHETA 

3710 PRINTiIJ&7)TAB<(3>" 908 — —INE":PRIN 
TL$9>)TAB<(3>" 218 - SEDIA" 
37209 PRINTHÉ$C11>)TABC(3>5" 2 — 
NTH$13>TABC3)" g3B - SEDIANA" 
2720 PRINTH$15)TABC3)" 348 - ." QUANTI 
LE 


MODA" sPRI 


3740 PRINTH$(17>TAB3)" g5® - --.." QUAN 
TILE" 
2750 PRINTH$£(19)TAB(3)" 358 - IHETA GEN 


ERICO" 
37609 GETKT$:IFKT$=""THEN3750 
3779 KT=VALCKT$) : IFKTCO0RKT>STHEN37658 
378 tn) 
9 


KT=KT+1 s0ONKTGOSUR3819,3920,3250,3 
920, 3950, 3970 

IFF4=1THENPRINT"3" :FETURN 

GOSUE1 1909 :GOTO0S7SAO 
© F4=1:RETURN 
3 GOSUB18000:TH=M:GOSUB23000 :PRINTÒ 
:TAB(3>" @\OMENTO DI INDICE :8"k 

3820 PRINTTAB<(3)" AVENTE PER POLO" :PR 
INTTABC3)" 3A MEDIA s88"MK :RETURN 

29509 IFBAS="E"THENGOSUB2IA4H0 RETURN 

3853 GOSUBZIOGO : IFZM=1THEHS$=" ZEROMODA 
LE" :G0SUB220600 RETURN 

3855 IFPM=1THENS#="PLURIMODALE" :GO0SUB2 
2000 :RETURN 

2269 TH=MODA :00SUB2ZZIAGA :PRINTHS<22>TAB 
C3)"AVOMENTO DI INDICE slk 

38709 PRINTTAB<(3)" AVENTE PER POLOB" :PR 
INTTAB 3)" ALA MODA :88"MK :RETURN 

3899 IFBAS="B"THENGOSUB29000 RETURN 

3995 00SUB24000 : TH=ME :603UB23000 PRINT 
H$(22>TABE<2)"S\OMENTO DI INDICE :#8"K 

3909 PRINTTABC(3)" AVENTE PER POLO" :PR 
INTTAB<3>" gLA MEDIANA :88"hMK RETURN 

2920 IFBAT="B"THENGOSUB2IAOGA RETURN 

3925 GOSUBZZADA : TH=01 :GOSUB2ZIOGA :PRINT 
W$(22:TAB<(3)" g\OMENTO DI INDICE :B8"K 

3930 PRINTTABC3) "AVENTE PER POLO IL" 
:PRINTTAE235" 3,3 QUANTILE : "MK RETURN 

3956 IFBAf="B" THENGOSUB290600 RETURN 

3955 GOSUBZEGGA :TH=093:GOSUB2IAGG :PRINT 
M&(22>TAB<3>" g\OMENTO DI INDICE :I"k 

3959 PRINTTABC3>" AVENTE PER POLO ILE" 
:PRINTTAB<C3>" 3-8 QUANTILE : "MK :RETURN 

3970 PRINTW$(21>TABC3>)" HETA =": INPUT 
TH :G0SUB2IO00 

2989 PRINTH$S<(22>TABC3)"E\OMENTO DI IND 
ICE sk 


Vi] 


DaWI 


3990 PRINTTAB<(3> "AVENTE POLO THETA:B" 
TH:PRINTTABC3>" s\(K, THETA? :B"MKE :RETURN 
4990 PRINT"I":F5=09:F(4)=1 
4905 PRINTL$(1})TABC7>"Q SODA, 
QUANTILI, 9" 

4997 PRINTTAB<7)" 9 
LE n" 

4616 PRINTH$(4)TABC3>" 908 — 
TH$ C(E>)TABC3>" FIB — MODA" 

49206 PRINTLi$S)TABC(3)" RD —- 
4030 PRINTH$C160>TAB(3>)" RIM — 
LE ” 

4049 PRINTH$(125TAB(3>" 948 -— ., 
ILE” 

40945 PRINTWH$C14>}TAB<(3)" SB - TNPOLAZIO 
NE TOTALE" 

4059 GETMO£:IFM0O$="" THEN46G59 

4059 MO=VAL MO) : IFMOCOORMO>STHEN4056 
4979 MO=M0+1 :ONMOGOSUB409S5,4100,4200,4 
300, 4400, 4509 

4639 IFF5=1THENRETURN 

46999 G0SUB1 1900 :G0T04050 

4995 F5=1 RETURN 

4199 IFER*="B"THENGOSUB29006 RETURN 
4195 G0SUB21000;1FZM=-1THENS$="ZEROMODA 
LE" :G0SUB220900 :RETURN 

4119 IFPM=1THENS$="PLURIMODALE" :G0SUB? 
2006 RETURN 

4120 PRINTH$225TAB(3>" 3\0ODA "MODA :RE 
TURN 

4200 IFBA8="B" THENGOSUB290096 RETURN 
42095 GOSUB24000 :PRINTW$(22>TABC35" ED 
IRNA:B"ME :RETURN 

4309 IFBA$="B"THENGOSUB29G05 :RETURN 
4305 GOSUBZSO0A :PRINTHS(22>)TABC3)" 3," 
QUANTILE :B8"01 :RETURN 

44059 IFBA$="B"THENGOSUB29000 RETURN 
4495 G0SUBZEDOO :PRINTH$(22>)TABC3)"® 
8 QUANTILE :8"03 RETURN 

4599 PRINTH$C22)TABC3>" SOLAZIONE TOTA 
LE :8"FT:RETURN 

59009 PRINT"I":F9=6:F5)=1:CA=1 

5005 PRINTWH$C1>TAB<(65>" 9 _APPRESENTAZIO 
NE GRAFICA I" 

5019 PRINTH$C(4>TAB(3>" 968 - -—INE" 

5020 PRINTWH*C(S>TABC3) "gi - - STOGRAMMA 
DELLA FREQUENZA" 

5025 PRINTTAB<7?) "ASSOLUTA" 

50230 PRINTWH$8)TABC(3>" 28 - -STOGRAMMA 
DELLA FREQUENZA" 

5635 PRINTTAB<(7>) "RELATIVA" 

5049 PRINTLI$(16>TABC35" 938 - - STOGRAMM 
A DELLA FREQUENZA" 

5045 PRINTTAB<7>"CUMULATA" 

5050 GETRG$:IFRG$=""THENSO50 

50509 RG=VAL<RG$>:IFRGCOORRG>3THEN5S656 
56065 IFBAfS="B"ANDRG=3THENGOSUB340060 :G0 
TOS005S 

5670 RG=RG+1:0ONRGGOSUB5095,51009,5200,5 
oo 

56036 IFF9=1THENRETURN 

5099 GOTOSO0S 

5095 F9=1 :RETURN 

519009 GOSUB2Z1000:XM=X:T$="g FREQUENZA A 
SSOLUTA I" :G0SUB31900 

5119 IFBA$="B"THENXM=<INTCXM3+15 

5120 DU=XM/T6 :GOSUB37000 :11=2 :GOSUB3500 
[e] 

5199 GOSUB32000:POKE5S9468, 14 RETURN 
5200 T*="g —REQUENZA RELATIVA B" 

5205 GO0SUB31600:0DU=1/T5:G05UB33900 :11=3 
:IFBA$="B"THENM=1 

5299 GOSUB35000 :G0SUB32000 :RETURN 

5300 T$="9 —REQUENZA CUMULATA N" 

5305 GOSUB315900 :DI=1"T6 :G0SUBS3O00 :1=4 
:GOSUB35O0A 

5399 GOSUB32000 :RETURN 

6999 PRINT"I" :F6=09:F6)=1 

5005 PRINTL$(1>)TAB169)" A -ORREZIONE DA 


MEDIANA, 
POPOLAZIONE TOTA 
-INE" :PRIN 


EDIARNA" 
n3 QUANTI 


+8 QUAN 
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Gli RPs E" THE 
320 È E H 
ak iT | 
. 
Gal NTHSC4I dE ITEPVALLO DI 
E: I I.,9 N Lpd 
GSi ITWS JR i f ENZA NDI 
DI } FE . A E "N 1 - 
ALe: ITHiS TA "gt DERI AMBIA 
LA XJE pe' 
A76 *:If F#$ HENSA7O 
AL î 4NDCF £ IN THENSO7?0 
Te] f F$ H"THEMNSI1O 
(61%) f ITWS TRE ì UOVA FF IWENZA 
la 1 4 PT TTAR I . (DNS |< THIEF THC I 
1165 NE JE (61%) “ETLPI 
i RI=S1TONC :Ff VU TETO ABC13)I' 
" ELA 
2609 PRINTHS<4>TRAÉE ARATTERISTICA D 
LASSE :" :PRINTTRE MC CID 
O PRINTH$C5)TABC3)"-ALORE ASSOCIATI 
LLA" :PRINTTABC3>5I"®? CLASSE "NCCI 
0 PRINTHE TRE "Q-ESIDERI AMBIRA 
IL ILORES" 
52909 GETCF$£:IFCF$* "THENS29S6 
00 IFCF$ ANDCF£ N"THENS299 
319 IFCF* N" THEM 
65 PRINTWH$ 2>)TAB: UOVO VALORE A 
f AT i) +4 
5 PRINTTAB: 1" ASSE : INFUTNCCI 
r A NEXT :G0SUBISBGGA :PETLPH | 
=1T0C:PRINT"I"N$(1>)TABC13)"-A 
"I 
6519 PRINTH$C4>TRE ">ALORE AMPIONE 
NR. "I:PRINTTABC3IICOCI) 
520 RINTHS RE '"2-ESIDE CRMBIA 
ALORED 
GETCF£:IFCF$=""THENS5530 
IFCF$ "ANDCF$£<C> "N" THENSS530 
IFCF$="h!" THEN6S7O 
55609 PRINTH$®(16>)TABC3)" UOVO VALORE DE 
CAMPIONE" 
6555 PRINTTRE "NR. "Is INPUTCCI? 
5570 NEXT :FORI=1TONC :FORI=2T04 :NCCI,3) 
26 :NEXTJI,I:G0SUB170960 :G0SUB15060 :RETURHN 
0900 PRINT"I"W$C(1>}TAB(4>" 9 LEGISTRAZIO 
IE DATI SU NASTRO BD" 
7010 PRINTW$C4>)TABC3)"0ME DISTINTIVO 
DEL FILE" 
€029 PRINTTAB(3)"(SOLO 15 CARATTERI 
GNIFICATINVI>" :PRINTTABC35 ss INPUTNF* 
9945 PRINTH$C7>5TAB(3>)" ROCURATEVI UNA 
CASSETTA E RIAV-" :PRINTTABC3) "VOLGETELA 
70590 PRINTTABC3>"TRONTI"::INPUTZ$:IFLE 
FT$C(2$£,1)>3<>"S"THEN7640 
055 IFBA$="" THENBA$="C" 
057 IFCV$="" THENCV$="2" 
7059 OPEN1I,1,2,NF$*:PRINT#1,NC:PRINT#I. 
C:PRINTR1I,FT:PRINT#1,AB$:PRINTRI,.BA$ 
76070 FORI=1T08:PRINT#1.FCI):NEXT:FORI= 
1TONC :FORJ=6T05:PRINT#1,NCCI,3) :NEXTI 
9680 NEXTI:FORI=1TOC:PRINT#1.,CCI>:N 
590 PRINTRI.CW$ "THENFORI 


| 


ai 


SASSI 


va 


TETTI Ar 


EOS 


LARA 


\ 
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8030 PRINTTAB<(3)"NENTE IL FILE DATI." 
8040 PRINTTAB<C3)"RONTI"::INPUTZ$:IFLE 
FT$(Z2$,1)<>"S"THEN3020 

89609 OPENI,1.,0.NF$:INPUT#1,NC:IHPUTR1. 
C:INPUTH1,FT:INPUTH1, ABS :INPUTH1.,BAF 
8970 FORI=1T08: INPUT#1,FCI):NEXT:FORI= 
1TONC :FORJ=9T05 : INPUT#1,NCCI,35 :NEXTI 
8089 NEXTI :FORI=1TO0C:INPUT#1,,CC15 NEST 
3090 INPUT#I,.CV$:IFBA$="B"THENFORIS=1TO 
NC INPUTW1,NC$ 1) NEXT 

8095 IFBA$="C"THENBA$="" 

8097 IFCV$E=-"Z"THENCV$="" 

3199 CLOSE1:RETURN 

19099 PRINTWH$<22)TABC3)"3/0N SONO DISP 
ONIBILI DATIB" 

10019 PRINTTAB<C3)"85U CUI OPERARE." :G 
OSUB11960 :RETURN 

11000 FORI=1T05990:NEXT :G0SUB12000 :RET 
URN 

12009 FORA=33568T0337658 :POKEA. 32 3NEXT: 
RETURN 

125909 FORA=33208T03234093 POKER, 32 :NEXT : 
RETURN 

13900 Fi=9:PRINTH$22>TABC3)"gU0DI DIS 
TRUGGERE I DATI" 

1309109 PRINTTAEC3>" ESISTENTI" ; : INPUTR 
1% :R1$=LEFT®CR18,1) 

13020 IFR1$<>"S"ANDR1£<>"N"THEN13660 
13630 IFR1#="S"THENGOSUB12006:RETURN 
136406 Fi=1:G0SUB12900:RETURN 

14900 PRINTH$(22>TAB<(3>"9/0N SONO DISP 
ONIBILI DATIB" 

14015 PRINTTABC3)" Q0ISAGGREGATI, B" :G05 
UB11960 RETURN 

15006 PRINT"I"li$1>TABC4>" 93 CEFINIZION 
E CLASSI ARGOMENTALI I" 

15005 PRINTH$(4>TABC3)" AJMERO CLASSI A 
RGOMENTALI" 

15697 PRINTTAB<(3>) "DESIDERATE «MASSIMO 
30)" 3 s INPUTNC 

15903 IFNCC20RNC>30THEN15005 

15069 FORJ=1TONC:FORK=1T05 NO CI,K>=0:N 
EXTK,J 

15019 PRINTH$(7>)TAB(3)" 908 - -LASSI AD 
AMPIEZZA COSTANTE" 

15620 PRINTH$(3)TABC3>" VR - LASSI AD 
AMPIEZZA VARIABILE" 

15939 GETCV$:IFCV$=""THEN15036 

15040 IFCV£<>"C"ANDCWV$<>""THEN156309 
15050 PRINTW$(12>)TAB(3) "LIMITE INFERIO 
RE DELLA" 

15959 PRINTTAB<(3)"1" CLASSE": : INPUTNCC 
1,95 

15955 IFCV$="V"THEN15566 

15070 PRINTWH$C(14>)TAB<3)"@MPIEZZA DELLE 
CLASSI" :PRINTTABC3) ; : INPUTAC 

150809 FORI=1TONC:NCCI,1>=HCC1,05+AC®#I : 
NEXT :FORI=2TONC:NCCI,0>=NCCI-1,1) NEXT 
15696 RETURN 

155596 PRINTWH$(14>TABC(3>"LIMITE SUPERIO 
RE DELLA" 

15595 PRINTTABC3) "1" CLASSE": INPUTNCC 
1,1>:IFNCC1,9)>NC{1,1>THEN15500 

15597 FORI=2TONC:G0SUB12500:PRINTHU$C12 
)TAB<(3) "LIMITE INFERIORE DELLA" 

15519 PRINTTAB<(3)I"" CLASSE" :NCCI-1,1) 
:NCCI,0)=NCCI-1,1) 

15529 PRINTH$C14)TABC3) "LIMITE SUPERIO 
RE DELLA" 

15539 PRINTTAB<(3)I"* CLASSE"; INPUTHCX 
I,1l> 

15549 IFNCCI,0>>NCCI,1>THEN15520 

15559 NEXT :RETURN 

165999 FT=0:FORI=1TONC:FT=FT+NCCI,2>:NE 
XT:FORI=1TONC:NCCI,3)=NCCI,2)/FT:NEXT 
15995 IFBA$="B"THENGOSUB21000 :XM=X:G0S 
UB39600 :G0T015930 

16019 NCC1,4)=NC1,3) :FORI=2TONC:NCCI, 
4>=NCCI-1,4>%+NCCI,3) NEXT 


16929 FORI=1TONC:tiC<I,5)= NOCE, 03+NCCI 
,1)>/23NEXT 

15939 GOSUBISSOG:I=1:1=0 

150935 IFI+J*16>NCTHENGI 
HOHAG RETURN 

165040 IFIDLISTHENI=1:31=J+1:G0SUB1S700:6 
OSUB1E500 

160942 IFBA$="E"THENGOSUBS95668:G0T015655 
La] 

15043 NO$=STR$ NCCI4+I#10,06055 : IFNCCI+J# 
19.,6G>=INTXNC<I+3%15,6>>THEN1506045 

15044 NO$=LEFT$<STRSNCCI+J#19,00),6> 
16045 N1$=STR$£(NCCI+160#3,15):N2$=STR$ 
NCCI+10#J.25> 

1609050 NIS=RIGHT$<" 
LEFTECN1I$+" LP. 
16055 N2*=RIGHT#$c" "4+N2$,5) 

15060 IFNCCI+J#10.3)<=9, SE-STHENN3$="6 
*:GOTO015071 

5 N3$=STR$CINTCNCK[I+160%J,3>)*10900).° 


"4+MNO$,6)+" —-"+ 


-— D 
[ui 
n 


- 
ta! 


50970 N3$=-RIGHT$N3#,LENCN3$>-105:HG$=" 

T$(N3$+"0900",4) 

I*=RIGHTE<" "+STRE(I+J#10> 

IFBAS= "E" THEN15095 

3 IFNCCI+J*19,4)C=9, SE-STHENMNN4$="9 

:G0T0160980 
IFNCCI+3#19,42= 

:G0T015086 

O77 N4*=STRFECINTCNCI+19%7,4)#1000)." 


3 6 


Da 
n+9 


nano 


S99THENN4£="1.68 


158079 N4#=RIGHT$N4$,LENCH48>-1):hd$=" 
O"+LEFT®(N4$+ "000" ,4) 

15980 PRINTH#®<2+1%2>I$#TAB(2>Ni8TAB(125) 
N25TAB (27 )NSSTAB<(34>N4%:I=1+1G0T015 
1569959 PRINTH$2+1*2>)I*TAB(4>}NOsTABC2 

N2$TABC34)N3%:I=1+1:G0T015035 

15500 IFBA$="B"THEN165520 

165605 PRINT"O23-. +NTERVALLI RED 
REG, REG." 

1655109 PRINT"#@ DI CLASSE ASS. 
REL. CUM. 8" :RETURN 

16520 PRINT"123-. —ARATTERISTICA 
«AL. AL 

16530 PRINT"9 DI CLASSE 

ASS. REL." :RETURN 

16709 PRINTWH$<25>TABC1>"sgPREMERE QUALS 
IASI TASTO PER CONTINUARESM" 

167159 GETZ$:IF2$=""THEN15710 

16720 RETURN 

17009 PRINTU$(25>)TAB(3>)"R6T0 RIDISTRI® 
VENDO I CAMPIONIEB" 

17002 PRINTTAB<(3)"ARACCOLTI TRA LE VAR 
IE CLASSI." 

17905 FORI=1T0C:A=1:IFCCI)CNCC1,6)THEN 
NCC1,0)=CCI) :NCCI,2)aNCCI,2%+1:G0T01704 
[e] 

17019 IFCCI>I>NCCNC, 1) THENNC CNC, 1>=CCI) 
:NCCNC,2)=NCCNC,2)+1:G0T017046 

17020 IFCCI)>=NCC(A,0)ANDCKI>=CNCCA,1>T 
HENNC<A,2)=NCCA,2)+1:00T0170409 

170309 A=A+1:G0T0170620 

17049 NEXT :RETURN 

18069 M=9:FORI=1TONC :M=M+NCC1I,5>*NCCI, 
3) :NEXT RETURN 

19090 V=9:G0SUBISO00 :FORI=1TONO:Vat+ CC 
NCCI,5)-M>T2)#NCCI,3) :NEXT RETURN È 

209069 SOM=9:G0SUB19006:SOM=S0QRCY> sRETU 
RH 

21909 PM=0:ZM=5:UM=0:MX=9:X=9 :MODA=0 N 
M=1:FORI=1TONC:IFNCCKI,2)<KTHEN21939 

21019 IFNC<XI,2)=XTHENNM=NM+1 

21020 IFNCCI,2)>XTHENNM=1:X=NCCI,25 Mx 
=I 

21030 NEXT 

21940 IFMX=10RMX=NCTHENZM=1 

21050 IFNM<C>1THENPM=1 

21969 IFPM=0ANDZM=9THENUf=1 :MODA=NC <MX 
53 


\0Nn 


me _ © » 
Oedepdernt 


21979 RETURN 

22000 PRINTW$C22>TAB<(3>"LA SERIE PRESE 
NTA DISTRIBUZIONE" 

22019 PRINTTAB<(3)S$" E NON CONSENTE PE 
RTANTO" 

22620 PRINTTAB<3>"IL CALCOLO DELLA MOD 
A." :RETURN 

23000 MK=B:FORI=1TONC :MK=MK+<CNCCI,5)- 
THITK>*NCCI 3) NEXT RETURN 

24950 C0=,5:G0SUB27000:ME=NCC(CX,5) :RET 
URN 
25909 CO=,25:G0SUB27ODO :01=NCCX,5) RE 
TURN 
26999 CO=.75:G0SUB27OGO :03=NC(CX,5) RE 
TURN 

27000 A=2:IFNCC1,4)>=COTHENCK=1 :RETURN 

27019 IFNC<CA-1,4)CCOANDNC<A,4)3>=COTHEN 
CX=A :RETURN 

27925 A=A+1:G0f027019 

28000 PRINT"OI"WM$C1>TAB(4>" gd «LASSI ARG 
OMENTALI PARTICOLARI Mm" 

2809095 PRINTW$(4)TAB(3)"/UMERO CLASSI A 
RGOMENTALI" 

280907 PRINTTABC(3) "DESIDERATE (MASSIMO 
303":  INPUTNHC 

28968 IFNC<10RNC>39THEN28005 

28999 FORJ=1TONC :FORK=1T05:NCCJ,K>=B:N 
EXTK,J 

28019 FORI=1TONC:PRINTH$ (12) TAB(3)"-AR 
ATTERISTICA DELLA"I"* CLASSE" 

289209 PRINTTAB<(3)" (MAX. 29 CAR.)"::INP 
UTNC$C15 

28030 NC$<(I)>)=LEFT#(NC$1>+" “ 
,20) 

28049 PRINTW$(14)TAB(3)">ALORE ASSOCIA 
TO ALLA" 

289569 PRINTTABC3)I"® CLASSE": INPUTHCK 
1,2) :IFNCCI,2)>999990RNC<I,2>COTHEN2804 
(e) 

28055 NCCI,5)5=1:60SUB12500:NEXT 

2806509 GOSUBISA00 :RETURN 

29999 PRINTH$<22)TAB(3) "L’ORGANIZZAZIO 
NE DELLA VARIABILE" 

29016 PRINTTAB<(3) "STATISTICA RENDE IL 
CALCOLO DEL-" 

29526 PRINTTAB<(3)"L'INDICE PRIVO DI SI 
GNIFICATO. " :RETURN 

30000 IFBAZ<>"B"THENRETURN 

300109 FORI=1TONC:NCCI,1>5=NCCI,3):NCCI, 
33=1/NC:NC(I,5)=NCCI,2) NEXT RETURN 

31990 PRINT"I":PRINTCHR$<1425 :POKES946 
8,14 

81095 AC=INT(39/NC) :FORI=1TO0INTCNC/23+ 
1:FORJ=1T0RC 

31997 IFNC=INTCNC/2)#2ANDI>NC/2THEN3165 
20 

31999 POKE(33654+J+AC#CI-1)#2),99 

31010 POKEC(33574+IJ+C(I-1)#AC#25 39: IFNC 
<DINT<NC/2)#2ANDI>NC/2THEN31920 

31015 POKE(33574+J+AC#CI-1)#2+AC),227 

31917 POKE(33654+J+AC#(I-1>#2+AC) 99 

31020 NEXT:NEXT:FORI=1T022:POKE(33654- 
1#40) , 160 :NEXT 

319459 POKE33654,99:FORI=1T02:POKE (3365 
4-1#49+AC#NC+1), 101 :NEKT 

31499 GO0SUB383000 RETURN 

32000 GOSUB15700:PRINT"2I":PRINTCHRSC14 
) :RETURN 

33999 FORI=1T019:PRINTH$(I*2+1>)"G, 00" 

33005 POKE(32767+(1)#S0+5),AC8) :POKEC3 
2767+(1)*80+7),AC8)+128 

33019 POKE(32767+CI)#890+3),48+19-I)) 
:NEXT:PRINTH$C(1)"1. 000" 

33999 RETURN 

34909 PRINTH$(22)TABC3)"L'ORGANIZZAZIO 
NE DELLA VARIABILE" 

34019 PRINTTAB(3) "STATISTICA RENDE LA 
RAPPRESENTA-" 

34920 PRINTTAB(3) "ZIONE PRIVA DI SIGNI 


FICATO. " :G0SUB11606:RETURN 

35000 FORI=1TONC:0I=INT(20#NC<I,1433>:08 
=INTCNCCI,.14>/D0U5-0I1#%85 :IFOSCOTHENOS=5 
35016 IFO8>8STHENOS=8 

35015 IFOI=STHEN35625 

350920 FORJ=1TO0G0I :FORK=1T0AC:POKE (33574 
-—J#46+K+AC#I-1)),160:NEXT NEXT 

35025 IFOS=STHEN350460 

35930 FORK=1T0AC :POKE(33574-<01+1)*409+ 
K+AC# 1-15), B(085 NEXT :NEXT :RETURN 
35046 NEXT 

35059 RETURN 

35009 FORI=1TONC:GI=INT(20# CNCCI, 41) KM 
95 :08=INTCCNCCI,14>/0U)-0I*8) 

36015 IFGI=9THEN36025 

36020 FORI=1T00I :FORK=1T0AC:POKE (33574 
—J#40+K+AC#I-155, 160 NEXT :NEXT 

35925 IFO8C=6THEN35040 

36930 FORK=1T0AC:POKE (33574-(0I+1)#40+ 
K+AC#I-13>,B(08) :NEXT :NEXT :RETURN 
360406 NEXT 

36059 RETURN 

370905 POKES94683,12:CF=0 

37005 POKE(33574),A085+128 

37019 IFXM>=109TCFANDXM<C16f (CF+1>THEN37 
030 

37020 CF=CF+1:G0T037010 

370639 SP=C(191CF > :FORJO=06TOXMSTEPSP :J=J 
0#1900 :X6=XM# 1966 :D9=DU* 10600 

37033 QI=INT(20%CI/X6G)>:083=INT(IJ/00)- 
DI*S+CA> 

32035 IFOS>8THENG3=8 

37037 TB=<26-015:IF(29-0I)=5THENTB=1 
37040 JE=STRSCINTCIJB)) :J$=RIGHT&C" 

"4J#,55:PRINTH$(TB35JE 

3706045 IF(33573-(01+1>#40)<=32758THENDI 
=0MI-L:08=8 

37056 POKEC(33573-(01+1)#49),AC0S) 
37066 POKE(33574-C01+1)#46>.,AC083+128 
370979 NEXT 

37689 FORJO=<{SP/2)TOXMSTEPSP :J=J0#1660 
1X60=XM#1000:0D6-0DU#10660 

370983 QI=-INT<(20%CJ/X0)>:08=INT<(<(J/D0)- 
0I*8+CA) 
37 IFO8>STHENO8S=8 
IFXM><160f(CF+1>>/2THEN37100 
:3r0838 TB=(20-01>:IF(20-01)=6THENTB=1 
37099 JIJE=STRECINT(JO#10>//16> :J8=-RIGHT® 
o” "+J#,60) :PRINTH$(TB>)J$ 

37100 POKE(3357?4-(01+1)#40),AC08)+128 
37119 NEXT :RETURN 

38000 IFAC=1THEN383500 

38919 FORI=1T0NC:1$=STR$CI):1*=RIGHT$< 
"  "+I$,LENI8£>-1) 

38020 I8*=RIGHT£C" “"+I$,AC3):P 
RINTH$ 22) TAB(7+AC#C(I-15>I$ NEXT 

380309 FORI=1T0INTCNC/2)+1:FORI=1TO0AC:C 
H=PEEK33514+3+CI-1)#AC#2) :CH=CH+128 
38635 IFNC=INT<XNC/25#2ANDI>NC-/2THEN336 
50 

38040 POKE 336514+J+C(I-1)#AC#2),CH 
33059 NEXT :NEXT :RETURN 

385090 FORI=1TONC:C1=INTCI/10):C2=1-C1% 
10 


385109 C1$=STR$C1) :C18=RIGHT$" "+C1$ 
,LENSC1$5-1) 
38520 C1IS=RIGHTSC" "+C1$,AC) 


sIFC1=6THENC1$=" " 
38525 PRINTH$C22)TABC7+AC#%CI-1>>)C1$ 


38530 C2E=STR$(C2) :C28*=RIGHT$<" "+C2%$ 
»LENC(C2$)-1) 
38540 C2$=RIGHT$C" "+C2$,AC0> 


:PRINTH$ 23) TABC(7+AC*CI-1)3)C2% NEXT 
38559 FORI=1T0INTCNC/2)3+1:FORK=6T01:FO 
RI=1TOAC 

38559 CH=PEEK(33614+K#40+J+CI-1)#AC#2) 
:CH=CH+128 

38570 IFNC=INTCNC/2)#2ANDI>NC/2THEN385 
sa 
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38580 POKE(33614+K#40+J+I-1>#AC*#2),CH 
38595 NEXT :NEXT :NERT :POKE33654, 150 :POK 
E(33654+AC#NC+1), 101 

38600 FORI=33694T0(33694+AC#NC) :POKEI, 
99 :NEXT :RETURN 

38999 RETURN 

39000 CF=9 

39010 IFXM>=19TCFANOXM<C16TCF+15>THENS3S 
030 

39920 CF=CF+1:6G0T039010 

39030 CF=5-CF :RETURN 

395009 NOS=NC$1+J#105:N2=INTCNCCI+J#10 
23% C10TCF >> C10T1CF) a 

39999 N25=STR$CN2) :N28=RIGHT$C" 
"+N2$,7) :RETURN 


Lista simboli grafici 


9 : 1 HOME =CHR$c19) 


CRSRT =CHR$C17% 


16 SHIFT HOME =CHR$(147) 


20 REVERSE =CHR$C13) 
SHIFT REVERSE =CHR$(146) 
REVERSE =CHR$C185 


SHIFT REVERSE =CHR£C1465 


e ed 


REVERSE =CHR$(18> 
SHIFT REVERSE =CHR$(145) 


REVERSE =CHR$(13> 
SHIFT REVERSE =CHR$(1465 


REVERSE =CHR$<185 
SHIFT REVERSE =CHR$C145) 


REVERSE =CHR$<13) 
SHIFT REVERSE =CHR$C1465) 


REVERSE =CHR$18> 
SHIFT REVERSE =CHR$(145) 


REVERSE =CHR$cC135 
SHIFT REVERSE =CHR$C146) 


REVERSE =CHR$<18) 
1 SHIFT REVERSE =CHR$(146> 


REVERSE =CHR$C185 
SHIFT REVERSE =CHR$C146) 


SHIFT HOME =CHR$C1475 


SHIFT HOME =CHR$C1475 
1 REVERSE =CHR${13) 
SHIFT REVERSE =CHR$<146> 


REVERSE =CHR$C183) 
SHIFT REVERSE =CHR$(146) 


REVERSE =CHR$C18> 
SHIFT REVERSE =CHR$146) 


SHIFT HOME =CHR$<1475 
1 REVERSE =CHR$<185 
SHIFT REVERSE =CHR£C145) 


REVERSE =CHR$C18) 
SHIFT REVERSE =CHR$<1455 


REVERSE =CHR$€185 
SHIFT REVERSE =CHR$145) 


SHIFT HOME =CHR$<{147) 


SHIFT HOME =CHR$<1475 


2005 


3010 


20 


LN 
o 


3030 


3040 


3050 


3060 


3070 


»” 


de n dd 


REVERSE =CHR$C18) 
SHIFT REVERSE =CHR$(1455 


REVERSE =CHR$(18) 
SHIFT REVERSE =CHR£(14655 
REVERSE =CHR#C1985 
SHIFT REVERSE =CHR$<145) 


REVERSE =CHR$C15> 
SHIFT REVERSE =CHR$C14655 


REVERSE =CHR$C185 
SHIFT REVERSE =CHR$C146) 


REVERSE =CHR$C183) 
SHIFT REVERSE =C 


REVERSE =CHR$c15) 
SHIFT REVERSE =CHR£cC1465) 


REVERSE =CHR$ €18) 
SHIFT REVERSE =CHR$146) 


REVERSE =CHR$<18) 
SHIFT REVERSE =CHR$C1465 


SHIFT HOME =CHR$C1475 


REVERSE =CHR$C185 
SHIFT REVERSE =CHR$C(1465) 


REVERSE =CHR$<18) 
SHIFT REVERSE =CHR#C146) 
REVERSE =CHR$(183) 
SHIFT REVERSE =CHR$<146> 


REVERSE =CHR$C185 
SHIFT REVERSE =CHR$(146) 


REVERSE =CHR£C18> 
SHIFT REVERSE =CHR£C(146) 


REVERSE =CHR$C18) 
SHIFT REVERSE =CHR$C146) 


REVERSE =CHR$C18) 
SHIFT REVERSE =CHR$C1465) 


SHIFT HOME =CHR$<147) 


REVERSE =CHR$18) 
SHIFT REVERSE =CHR$C146) 


REVERSE =CHR$C18> 
SHIFT REVERSE =CHR$C1465 


REVERSE =CHR$C18) 
SHIFT REVERSE =CHR$C(146> 
REVERSE =CHR$C185 
SHIFT REVERSE =CHR$<(146> 


REVERSE =CHR$(18) 
SHIFT REVERSE =CHR$(1465 
REVERSE =CHR$C18> 
SHIFT REVERSE =CHR$C1455 


REVERSE =CHR$C195) 
SHIFT REVERSE =CHR$<145) 


REVERSE =CHR®*<18) 
SHIFT REVERSE =CHR$(146) 


REVERSE =CHR$C185 
SHIFT REVERSE =CHR$(1465 


SHIFT HOME =CHR$£C147> 


REVERSE =CHR£C18) 


=CHR£(146) 


18) 


=CHR£C1465) 


185 


=CHR$ (146) 


185 


=CHR$(146 


135 
=CHR$ (1465 
135 


=CHR$ (146) 


185 


=CHR$ 146) 


18) 


=CHR$£(146) 


=CHR£(146 
13> 
=CHR$ (146 


185 


=CHR$ 146 


185 
=CHR$C(146) 


1835 


=CHR$ (146) 


18) 
=CHR$C(146 


135 


=CHR$ (146) 


185 
=CHR$146 
1253 


=CHR£ 146 


18) 


2CHR$ 145) 


185 


=CHR$ 146) 


18) 


=CHR$ 146) 


125 
=CHR$ (1465 


18) 
=CHR$ (146 


18) 
=CHR$ (146 


185 


=CHR$ 146 


18) 


=CHR:$ (146 


185 


=CHR$(146 


185 


LI 
Ul 
Seguito listato Statistica. 
1 SHIFT REVERSE 
3830 1 REVERSE =CHRs$. 
1° SHIFT REVERSE 
1 REVERSE =CHRS$: 
1 SHIFT REVERSE 
3960 : 1 REVERSE =CHPS: 
1 SHIFT REVERSE 
3879 : 1 REVERSE =CHR$ 
1 SHIFT REVERSE 
1 REVERSE =CHR$ 
1 SHIFT REVERSE 
3895 : 1 REVERSE =CHR$: 
1 SHIFT REVERSE 
39900 : 1 REVERSE =CHR$( 
1 SHIFT REVERSE 
1 REVERSE =CHR$ 
1 SHIFT REVERSE 
3925 : 1 REVERSE =CHR$° 
1 SHIFT REVERSE 
9390 s 1 REVERSE =CHR$< 
1 SHIFT REVERSE 
1 REVERSE =CHRé$< 
1 SHIFT REVERSE 
3955 : 1 REVERSE =CHR$ 
1 SHIFT REVERSE 
3969 : 1 REVERSE =CHRs$< 
1 SHIFT REVERSE 
1 REVERSE =CHR$< 
1 SHIFT REVERSE 
3980 : 1 REVERSE =CHP$< 
1 SHIFT REVERSE 
3999 : 1 REVERSE =CHR$: 
i SHIFT REVERSE 
1 REVERSE =CHR$< 
1 SHIFT REVERSE 
4909 1 SHIFT HOME =CHR$<147> 
4905 : 1 REVERSE =CHR%< 
1 SHIFT REVERSE 
4007 : 1 REVERSE =CHR$< 
1 SHIFT REVERSE 
4019 : 1 REVERSE =CHR$< 
1 SHIFT REVERSE 
1 REVERSE =CHR$< 
1 SHIFT REVERSE 
4020 : 1 REVERSE =CHR$° 
1 SHIFT REVERSE 
4030 1 REVERSE =CHR* 
1 SHIFT REVERSE 
4040 1 REVERSE =CHRs$< 
1 SHIFT REVERSE 
46045 : 1 REVERSE =CHR$ 
1 SHIFT REVERSE 
4120 : 1 REVERSE =CHR£* 
i SHIFT REVERSE 
4205 : 1 REVERSE =CHR$° 
1 SHIFT REVERSE 


=CHR$1465 


146) 


Programmi Gestionali ippica 
i più curati, affidabili, facili da usare 


| programmi girano su elaboratori Commodore in qualunque combinazione 
3032/4032/8032 + 3040/4040/8050/8250. Abbiamo impiegato criteri di “inge- 
gneria umana” ed ogni possibile sofisticazione software per rendere l'uso sem- 
plice e scorrevole. Gestione delle maschere in linguaggio macchina: impossibile 
bloccare un programma o sporcare il video. Conteggi su 12 cifre. Segnali acustici 
di controllo. Hard-copy. Aggiomati semestralmente. Manuali d'uso dettagliatissimi. 


È compreso un corso d’addestramento a Mantova totalmente spesato. 


SEMPL contabilità semplificata - Gira su due soli dischi (disco programmi + 
disco ditta). Capacità max 1200 clienti + fomitori. Ventilazione e scorporo, di- 
chiarazione IRPEF, registri ed elenchi IVA, ecc. Clienti e fomitori richiamati 
con codice simbolico (Rossi si chiama “Rossi” e non “1234"). L. 1.490.000 


Opzione FATTURAZIONE per SEMPL L 500.000 


GEMAF contabilità generale - Gira su due soli dischi (disco programmi + 
disco conti). Capacità max 3000 clienti o fomitori + 900 conti + 99 mastri. 
Registri ed elenchi IVA, giornale, bilanci, estratti conto ecc. L. 1.990.000 


Opzione MAGAZZINO & FATTURAZIONE per GEMAF - Tutta 


la procedura contabilità + magazzino + fatturazione gira su tre soli dischi (di- 
sco programmi + disco conti + disco magazzino). Capacità max 10.000 arti- 
coli. Giornale di magazzino. LIFO. Fatturazione totalmente in linea, con ge- 
stione immediata dello scarico e della prima nota. Cedolino agenti. Stampa 
effetti immediata o a posteriori con raggruppamento. L. 500.000 


Opzione PRODUZIONE per GEMAF - Distinta base a n livelli fino a 
max 10.000 componenti per prodotto finito. Sviluppo automatico dei carichi 
e scarichi. Lancio di commesse con controllo scorte e costi. L. 500.000 


Tutti i programmi sono coperti dalla speciale garanzia “no-bugs": 
premio di L. 100.000 a chiunque segnali un errore software. 
Concessionari / Installatori autorizzati in tutta Italia 


PARCE parcelle professionali. Memorizza le prestazioni ai clienti, stampa 
fatture e distinte prestazioni. Tariffe orarie, compensi a tabella, rimborsi spe- 
se, acconti, ritenute e maggiorazioni. Agganciabile a GEMAF. L 500.000 


COMPU computi metrici. Consente di gestire un archivio voci, eseguire 
variazioni di prezzi, compilare computi, memorizzarli, modificarli e stampazrli 
con vari formati. Ogni voce può contenere 100 righe di descrizione. COM- 
PU utilizza le stesse sofisticate tecniche di programmazione del nostro sof- 
tware gestionale e consente un uso eccezionalmente scorrevole. L. 500.000 


ORA DISPONIBILE ANCHE VERSIONE IBM 


FILEX data base generalizzato. Archiviazione, ricerca a chiavi da video, 
ordinamenti, stampa selettiva di etichette e tabulati, statistiche, calcoli nu- 
merici. Per mille usi diversi. L. 300.000 


ROM LOGICA - aggiungono nuove istruzioni al Basic Commodore 


Programmer's Toolkit - aggiunge i comandi AUTO, DELETE, RENUMBER, 
HELP, TRACE, STEP, OFF, DUMP, FIND. La Rom più venduta nel mondo. As- 
solutamente indispensabile per chi sviluppa programmi. L. 85.000 


Command-QO - per 4032 e 8032 - aggiunge tutti i comandi del Toolkit, più i 
comandi SEND, OUT, KILL, BEEP, PRINT USING e funzioni di editing (scroll, 
repeat, eat, tasto funzione). La Rom più completa. L. 135.000 


Rom ELPRO - input controllato, stampe formattate, hard copy da video, 
controllo del cursore (istruzioni CURS, CLEAR, ENTER, OUT, DEVICE, LCASE, 
HDCPY). Per professionalizzare i vostri programmi. L. 95.000 


VicTree - per Commodore 64 - aggiunge i comandi del Basic 4.0 e del Tool- 
kit ed un word processor - comprende un'interfaccia Centronics.  L. 229,000 


SPACEMAKER - permette di montare fino a 4 Roms sullo stesso zoccolo e 
selezionarle con un commutatore. L. 80.000 


BUFFER 8K - migliora fino a 2 volte la velocità di qualunque stampante con 
interfaccia parallela Centronics. L. 299.000 


COMPUCRUISE - computer di bordo per auto - regolazione automatica del- 
la velocità - monitoraggio consumi - completo di parti meccaniche L 299.000 


lo L] 3 L d gli specialisti Commodore 


dr. ing. Mario Pavesi 
Via Bonomi, 6 - 46100 Mantova - Tel. 76) 350.238 


Commodore e IBM / vendita diretta e per corrisponder 


«banque 84» 


Banque ’84 - Milano 16. - 19.4.1984 
Una manifestazione orientata verso la pratica 


Dopo tre grandi successi ottenuti a 
Lussemburgo, il quarto Salone Europeo 
Specializzato per la Tecnica e 
l'Organizzazione delle Banche si terrà 
dal 16 al 19 aprile 1984 nell’ambito 

del Salone dei Servizi presentato dalla 
Fiera Internazionale di Milano. 


La manifestazione è cosi articolata: 

- l'esposizione specifica per le 
attrezzature e i servizi bancari 

- la mostra ”Banque Special” 

- iconvegni. 


Negli stands ditte qualificate 
presenteranno ai visitatori la loro offerta 
di macchine, attrezzature, software e 
servizi specifici per il settore bancario. 


"Banque Special” mostrerà praticamente 
la”Meccanizzazione ed automazione 
delle operazioni bancarie” 

In modo particolare verranno presentate 
le operazioni: 

- agli sportelli 

- nel servizio automatico 

- con i clienti 

- con sistemi point of sale nel commercio 


Conferenze bancarie 
AI "banque '84” di Milano verranno 
tenute conferenze che tratteranno temi 


INFORMAZIONI 


attuali e fondamentali e precisamente: 


1.”La banca moderna” 

Richiesta, linee di sviluppo, concetti 
Sotto questo tema si parlerà delle 
tendenze del mercato, delle linee di 
sviluppo attinenti all'organizzazione ed 
alla tecnica, come pure della 
realizzazione economica della banca 
moderna. Degli esempi pratici di nuove 
soluzioni concluderanno il quadro 
generale. 


2."Automatizzazione delle operazioni 
bancarie” 

Questo argomento di grande attualità è 
particolarmente sentito da parte degli 
esperti internazionali e viene presentato 
con soluzioni di problemi già realizzate. 
Il tema ”La banca moderna” verrà svolto 
nei giorni 16 e 17 aprile, mentre il tema 
"Automatizzazione delle operazioni 
bancarie” verrà trattato il 17 e 18 aprile. 


La partecipazione ai convegni rende 
possibile anche la visita all'esposizione 
ed alla dimostrazione bancaria pratica. 
Questa combinazione è particolarmente 
interessante perchè in breve tempo. 
informa sugli sviluppi futuri fondamentali 
della tecnica e dell’organizzazione della 
banca. 


Fiere di Dusseldorf S.r.l. - NOWEA 
Dusseldorfer Messegesellschaft mbH. - NOWEA 
Ditta Gaspare Honegger di Vittorio Honegger, Via F. Carlini, 1 - 20146 MILANO 


Tel.: 02/42.25.212-42.33.722 - Telex: 332308 Honeg | 
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Memory Alfa IV 


Lo scopo di questo programma è quello di fornire un valido strumento per la 
gestione di un data base su cassetta per il Commodore C64. In pratica si 
tratta di un programma ‘‘economico’’, rivolto a coloro che non possono 
permettersi un data base tra quelli pubblicizzati, vuoi per il loro costo, vuoi 
per la configurazione-hardware che richiedono. 


di M. Mascheroni 


: | programma è, per così dire, “universale”: 
con esso si possono creare e gestire centi- 
naia di data base, con diversissimi tracciati re- 
cord. Dato il supporto usato (la cassetta) gli ar- 
chivi non potranno essere molto grandi, ma co- 
munque sufficienti per la maggior parte delle 
applicazioni personali. 


Caratteristiche fondamentali 
del Memory Alfa IV 


Caratteristiche dei record: 

numero di campi da 1a 90(!); 

numero di caratteri per campo da 1 a 30; 
lunghezza logica massima per record 2700 ca- 
ratteri (!)). 

Funzioni operative su ogni singolo record: 
immissione, variazione, annullamento logico e fi- 
sico, riattivazione, stampa. 

Funzione di sort: 

ordinamento ascendente e discendente; 
ordinamento con un massimo di 8 campi di con- 
trollo, scelti liberamente tra tutti i campi del re- 
cord. 

Funzione di ricerca record: 

ricerca totale; 

ricerca parziale per numero relativo di record; 
ricerca parziale per contenuto parziale o totale 
dei campi (fino a 7 parametri di scelta: i record 
sono considerati sempre “multi-definibili” e 
“multi-chiave”). 

Funzione di stampa: 

(solo percoloro che posseggono una stampante, 
assolutamente non indispensabile); 

stampa di tutti i record, di parte di essi (in funzione 
dei numeri relativi di record o dei parametri di 
ricerca), di un singolo record. 


Configurazione 


Il Memory Alfa IV gira su un Commodore C64 in 
configurazione minima, cioè solo con il registrato- 
re. Se avete anche la stampante, naturalmente è 
meglio. All’inizio vi viene chiesto se avete la stam- 
pante e se volete usarla. Basta rispondere “N” per 
eliminare tutte le funzioni di stampa, altrimenti 
rispondere “S". Qui, come in altre parti del pro- 


ramma, viene richiesta una risposta logica SI- 
NO: rispondere sempre “S" o “N”, altri caratteri 
sono rifiutati. 


Uso del menu e struttura del tracciati video 


Tutto il programma si avvale di una serie di 

semplici menu, le cui scelte sono attivate dai tasti 
funzione F1...F8, il più possibile standardizzati, on- 
de rendere facile il vostro lavoro (esempio: sem- 
pre “F7” per terminare il lavoro su un menu e 
tornare a quello precedente). 
Anche la struttura del video è standard in tutto il 
programma. La parte alta del video è riservata 
all'instestazione: contiene generalmente il nome 
dell'archivio e la funzione logica che si sta svilup- 
pando in quel momento (manutenzione, ordina- 
mento, ecc.). 

La parte centrale del video è generalmente la 

zona in cui vengono evidenziati i campi dei re- 
cord o i menu(tranne perla funzione “detector”, 
in cui diventa anche la parte di input). 
La parte bassa del video è quella di input: viene 
evidenziato un appropriato messaggio che vi in- 
dica quello che dovete immettere, nonché un 
eventuale messaggio di errore nel caso immet- 
tiate un dato non conforme alle sue caratteristi 
che (nell’ambito del possibile, il programma con- 
trolla praticamente tutto o quasi). Ove possibile, 
l'input è ottenuto con l'istruzione GET, in modo da 
evitare la necessità di battere RETURN. 


Funzione di inizio lavoro 


Dopo aver dato il RUN e aver risposto al mes- 
saggio già citato riguardante la stampante, ap- 
pare un primo menu. Vediamo, una per una, le 
sue scelte. 

F4 - Caricamento dati da cassetta. 

Viene caricato in memoria un archivio preceden- 
temente creato e già salvato su cassetta. Opera- 
tivamente, niente da segnalare, appare il solito 
“press play on tape” e via caricando... 

F2 - Creazione di un nuovo archivio. 

Non avete nulla su cassetta e quindi dovete “cre- 
are” un archivio nuovo. Vedi più avanti. 

F3 - Caricamento dati da cassetta con variazio- 


ne intestazione dei campi. 

Prima “performance” del programma, più utile di 
quanto sembri a prima vista. Abbiamo creato per 
esempio un ipotetico archivio “AMICI”, con i 
campi Nome, Indirizzo, Città, Telefono, Libero, in 
cui il campo “Libero” è stato lasciato vuoto in 
vista di un utilizzo futuro. Dopo “tot” tempo ci 
accorgiamo che ci servirebbe il campo “Codice 
Fiscale”, ed ecco che con questa funzione pos- 
siamo trasformare “Libero” in “Codice”, e quindi 
successivamente immettere l'esatto contenuto 
in questo campo (da qui anche il trucchetto: 
lasciate sempre un campo “vuoto” in ogni vostro 
archivio, non si sa mai...). Ancora: il programma 
ogni tanto vi chiede il nome o il numero di un 
certo campo. Potrebbe essere comodo avere un 
nome facile da ricordare, e quello che avete 
messo in fase di creazione dell'archivio potrebbe 
non rispondere bene a questo scopo: ecco che 
giunge a proposito la possibilità di variarlo. Da un 
punto di vista operativo il programma carica l'ar- 
chivio da cassetta, quindi presenta uno per uno i 
campi, e chiede di immettere il nuovo nome del 
campo. 

F7 - Fine lavoro. 

Il programma sistema il colore, “chiude” la stam- 
pante (se aperta) e termina. 


Creazione di un nuovo archivio 


Questa funzione viene logicamente eseguita 
una sola volta per ogni archivio (la prima). 
A livello generale per l'archivio bisogna immette- 
re: 
— il nome dell'archivio (massimo 8 caratteri), 
— il numero dei campi di ogni record (massimo 
90, ma dovrebbero bastarvi...). 
A livello particolare per ogni record bisogna im- 
mettere: 
— il nome di ogni campo del record (massimo 9 
caratteri), 
— la lunghezza di ogni campo del record (massi- 
mo 30). 
Poi il programma chiede conferma. Rispondere N 
per ripetere il tutto, oppure S per passare alla fase 
successiva. 


Menu principale 


Dal menu “Memory Alfa IV” si arriva sempre qui, 
prima o poi. Oltre alle scelte funzionali, questo 
menu segnala anche: 

— il numero massimo di record che possono esse- 
| re caricati; 

— il numero di record attualmente caricati (all'i- 
nizio 0); 

— il numero di record che possono essere caricati 
(cioè quelli liberi, disponibili; la differenza tra i 
primi due dati). 

Vediamo le scelte del menu una per una. 

F4 - Immissione record. 

Una delle funzioni principali. I nuovi record vengo- 
no aggiunti in coda all'archivio, successivamen- 
te potranno essere ordinati con la funzione dii sort. 
Il programma evidenzia il numero logico del re- 
cord che si sta per immettere e chiede di digitare 
il contenuto di ogni campo. Battere RETURN “a 


vuoto” se si desidera lasciare vuoto un campo (il 
programma forzerà comunque un “.”, per motivi 
di gestione di dati su cassetta: un solo campo 
realmente vuoto provocherebbe, in fase di cari- 
camento da cassetta, un caos stratosferico). 
Dopo aver caricato un record, il programma 
chiede la solita conferma. 

F3 - Ricerca per variazione/annullamento/riatti- 
vazione. 

Passa al menu successivo (“menu ricerca/varia- 
zione”). (Vedere più avanti). 

F8 - Salvataggio dati su cassetta. 

I record vengono salvati secondo il loro ordine 
dopo l'ultimo ordinamento effettuato (se succes- 
sivamente vi serviranno ancora in quell'ordine, 
non sarà più necessario eseguire il sort). Nessun 
problema particolare: il programma spara il clas- 
sico “press record & play” e via salvando. Dopodi- 
ché il programma si rilancia da solo e si può 
ripartire con la gestione di un altro archivio. 

F7 - Fine lavoro. 

Il programma termina e si rilancia, pronto a gesti- 
re un altro archivio, a meno che non abbiate 
eseguito qualche azione di manutenzione sull'ar- 
chivio: in questo caso, il programma chiede una 
conferma. Se non la ottiene, ritorna al menu, e voi 
avete la possibilità di “ravvedervi”, eseguendo il 
salvataggio su cassetta. 


Menu principale di ricerca 


Vediamo le scelte di questo Menu una per una. 
F4 - Ordinamento. 
Passa alle richieste dei parametri di sort (vedere 
più avanti). 
F3 - Ricerca/variazione totale. 
Significa che la ricerca/variazione avviene indi- 
stintamente su tutti i record (vedere più avanti). 
F5 - Ricerca/variazione parziale. 
La ricerca può essere parzializzata in tre modi: 
record dal n. aln. (lostessonumero provoca la 
visualizzazione di un singolo record); 
secondo il contenuto di particolari campi o parti 
di campi di un record (funzione “detector”); 
i due modi precedenti combinati insieme (vede- 
re più avanti). 
F7 - Fine lavoro. 
Il programma ritorma al “Main menu”. 


Figura 1 - Variabili im- 
piegate nel programma. 


(O) 
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Funzione di ordinamento 


Si arriva qui con la scelta F1 del menu “ricerca- 
/variazione”. La funzione di ordinamento viene 
eseguita in due fasi. 

PRIMA FASE 

Il programma chiede se il sort deve essere ascen- 
dente o discendente. 

SECONDA FASE 

Dato che il record non ha un campo-chiave, è 
praticamente un record multi-chiave. Dovete di- 
re voi, a questo punto, in base a quale campo 
volete sia eseguito il sort: non solo, ma potete 
dare ben 8 campi di controllo, nell'ordine di IM- 
PORTANZA DECRESCENTE in cui devono essere uti- 
lizzati per il sort. 

Esempio: in un ipotetico archivio anagrafico, po- 
tete ordinare i record al campo Città (1° campo 
di controllo), per avere tutti i nomi divisi per zona, 
quindi in base al campo Nome (2° campo di 
controllo), per avere (nell'ambito di ogni città) 
tutti i record in ordine alfabetico, e via ordinan- 
do... Naturalmente nessuno ci vieta, in un altro 
momento, di ordinare lo stesso archivio in tutt'al- 
tro modo per tutt'altri scopi. 

Come si vede, un sort sufficientemente potente e 
flessibile. L'algoritmo usato è il Quick, che è certa- 
mente uno dei più veloci. 


Funzione di ricerca totale 


Si arriva qui con la scelta F3 del menu “ricerca- 
variazione”. Il programma imposta come primo 
record valido il n. 1, e come ultimo record valido il 
numero dell'ultimo record caricato. Prima di pro- 
seguire chiede se vogliamo stampare tutti i re- 
cord (se ovviamente all'inizio avevamo risposto 
“S” al messaggio per la stampante). Se rispondia- 
mo S, il programma stampa tutti i record. 
Quindi il programma chiede se vogliamo avere 
la possibilità di variare velocemente un singolo 
campo di ogni record. Se si risponde $, il program- 
ma chiede il nome o il numero del campo che 
vogliamo variare. In ogni caso poi passa alla fase 
di manutenzione del record (video “manutenzio- 
ne”). Vedere più avanti. 


Funzione di ricerca parziale 


Probabilmente la possibilità più potente del 
programma (assieme al sort) che permette uno 
gestione comoda e flessibile del nostro archivio. 


Prima parzializzazione di ricerca 


Il programma chiede i numeri record entro cui 
si vuole agire. Potete ricercare un singolo record, 
dando lo stesso numero come limite inferiore e 
superiore. Potete ricercare su un gruppo di record, 
dando i giusti limiti (dato che con tutta probabili 
tà prima avete eseguito il sort, potete “intuire” 
dove si trovino i record che vi interessano, tutti 
verso l'inizio o tutti verso la fine, ecc.). Ancora, 
possiamo dare come limite 1 e come limite supe- 
riore l'ultimo record caricato, estendendo la ricer- 
caa tutti i record. 


‘Seconda parzializzazione di ricerca 


Dopo aver stabilito i limiti record entro cui vole- 
te agire (0 anche senza, in questo caso il “detec- 
tor.. si estende a tutti i record), possiamo dare al 
programma dei parametri di confronto per la 
ricerca dei record. In altre parole dovete indicare: 
— in quale campo il programma deve ricercare 
una certa stringa di caratteri; | 
— da quale posizione nel campo la stringa di 
caratteri deve essere ricercata (non necessaria- 
mente la stringa deve essere ricercata dall'inizio 
del campo!); 

— il parametro di confronto con una vostra 
“stringa-detector” cioè se la stringa nel campo 
deve essere uguale, maggiore, minore, maggiore 
© uguale, minore o uguale, diversa, rispetto alla 
vostra stringa-detector; 

— la vostra stringa-detector. Pe 

E tutto questo, fino ad un massimo di 7 volte (sette 
stringhe-detector, che possono anche sovrap- 
porsi ù piacimento tra di loro: e scusate se è 
poco!). ba 

Ad esempio in un ipotetico archivio Libri voi 
potreste ricercare tutti i libri di un certo autore, 
editi però solo da una certa casa editrice, prima o 
dopo di una certa data, e che trattino un certo 
argomento, ecc. Oppure potete cercare tutte le 
opere di “Beethoven” composte dopo un certo 
anno presenti nella vostra discoteca, e così via. 
Come si vede, una funzione discretamente po- 
tente che investiga per voi e vi presenta su un 
piatto d'argento solo irecord chevi interessano in 
quel momento. Li 
Dopo di questo, il programma si comporta come 
per la ricerca totale e quindi passa alla fase di 
manutenzione (video “manutenzione”). 


Fase di manutenzione record 


Si arriva qui in ogni caso dalla ricerca, in qua- 
lunque modo sia stata fatta. 


Manutenzione con variazione veloce 


Se si è scelta la possibilità di variazione veloce 
di un campo, il programma consente soltanto di 
variare quel campo, di lasciarlo immutato, di ter- 
minare la ricerca (prima che la stessa arrivi alla 
fine naturale dell'archivio). È un sistema “rozzo” 
per variare un campo, ma decisamente più velo- 
ce di quello normale (vedere dopo), e può essere 
utile in molti casi. Si pensi ad un ipotetico archivio 
Calcio in cui, ogni domenica, dovete variare il 
campo Punti. Con questa funzione, in pochissimo 
tempo, variereste la serie A, B, C1, C2, Juniores.e 
Pulcini di tutta Italia (!). 


Manutenzione normale 


Il programma procede di default in senso 
ascendente, e mostra il primo record che cori- 
sponde ai parametri detector. Se avete richiesto 
la ricerca totale, non avete usufruito della funzio- 


ne detector, e quindi non ci saranno parametri 
da confrontare e tutti i ecord andranno bene; di 
conseguenza il programma mostrerà il record n. 
1, ma la filosofia non cambia: il programma mo- 
stra i record che volete voi, tutti, se li volete tutti, in 
parte, se abbiamo eseguito il detector e quindi 
ne vogliamo solo una parte. 

Struttura del formato video: 

In alto l'intestazione, poco più sotto il numero 
del record visualizzato, il suo stato (attivo/annul- 
lato), la pagina visualizzata e il numero massimo 
di pagine (dato che nemmeno Superman riusci- 
rebbe a visualizzare 90 campi contemporanea- 
mente, il programma mostra i primi 10 campi - 
pagina 1 - e ci informa di quante pagine è com- 
posto il record: se 3, per esempio, significa che il 
record è di 3 pagine, cioè di un numero di campi 
compreso tra 21 e 30). 

Quindi i 10 campi della pagina, con nome e 
contenuto campo. Quindi le varie funzioni di ma- 
nutenzione, che vediamo ora una per una. 

F4 - Variazione. 

Il sistema chiede di immettere il nome o il numero 
del campo da variare. Dopodiché visualizza il 
contenuto attuale del campo e chiede il nuovo 
contenuto. Notare che si può variare anche un 
campo non compreso nella pagina visualizzata: 
ci pensa il programma a ricostruire la pagina. 
F2 - Fine lavoro. 

Fine forzata della manutenzione, senza attende- 
re che si arrivi alla conclusione naturale di fine 
archivio. Il programma ritoma al menu ‘“ricerca- 
/variazione”. 

F3 - Pagina avanti. 

Consente di “sciorinare” a video tutto il record 
andando in avanti con il numero delle pagine (e 
di conseguenza con il numero dei campi). Se si 
arriva all'ultima pagina e si preme F3 il program- 
ma torna alla prima, come se considerasse le 
pagine in un circolo. 

FS - Pagina indietro. 

L'esatto contrario della funzione F3. Se si arriva 
alla prima pagina, il programma toma all'ultima. 
F4 - Annullamento. 

Il programma annulla il record (a meno che sia 
già annullato), poi ricostruisce la videata cam- 
biando lo stato record. Si fa notare che il recordè 
annullato solo logicamente è può essere ancora 
variato, stampato, riattivato. Però in fase di salva- 
taggio dati su cassetta, il programma non salva i 
record annullati: in tal Modo l'annullamento di- 
venta fisico. 

F6 - Riattivazione. 

Permette di riattivare un record precedentemen- 


te annullato. 

F7 - Ricerca avanti. 

Segna praticamente la fine della manutenzione 
di quel particolare record. Il programma prose- 
gue “in avanti” la ricerca di un altro record corri- 
spondente ai parametri desiderati. 

F8 - Ricerca indietro. 

L'esatto contrario della funzione precedente. 

$ - Immettendo “$", coloro che hanno la stam- 
pante e hanno risposto $ al messaggio iniziale 
sulla stampante, potranno ottenere la stampa 
del record visualizzato. 

Nota: se durante la fase di ricerca avanti (indie- 
tro) si oltrepassa l'ultimo (il primo) record valido 
secondo i parametri immessi, il programma vi- 
sualizza un Messaggio appropriato e toma al me- 
nu “ricerca/variazione”. 


Una utility per finire 


E con questo è tutto o quasi. Il fatto che vorrei 
mettere in risalto è che noi possiamo creare un 
archivio qualsiasi del quale conosciamo il “trac- 
ciato record” questo è molto importante in 
quanto possiamo creare e manutenere il nostro 
archivio con questo programma, e svolgere altre 
funzioni sull'archivio con altri programmi studiati 
appositamente per determinati scopi particolari 
(stampa etichette, creazione grafici, calcoli fi- 
nanziari, ecc.). 

L'essenziale è inserire in questo programma stu- 
diato “ad hoc” per una applicazione particolare, 
una subroutine che consenta il collegamento 
con il nostro Memory Alfa IV. In altre parole una 
subroutine di caricamento dei dati creati e gestiti 
dal Memory Alfa IV. Realizzarla è di una semplici- 


‘ tà sconcertante, perché è sufficiente scopiazzare 


un pezzettino del Memory Alfa stesso. Comunque 
eccovela servita, per i più sfaticati: 


50000 C$ = “"MEMORY”:OPENA, 1, 0, C$ 


50010 bag; C$: INPUT#1, P$: INPUT#1,N: IN- 
#1, 

50020 DIMNS(N), L(N), L(N), H$(R.N) 

50030 FORX = ‘TON: INPUT#4, N$(X): NEXT 

50040 FORX =/TON: INPUT#1, L(X): NEXT:X= 0 

50050 X=X+1 

50060 FORY = ‘TON: INPUT#1, H$(X,Y): IF 
H$(X,Y) = “DUMMY” THEN 50080 

50070 NEXT: GOTO 50050 

50080 CLOSE1: RR = X-1:H$(X.Y) =" RT=R-1; 


RL=RT - RR: RETURN a 


Listato 1- Il programma 
Memory Alfa IV. 


Seguito listato Memory 


PRINT "IIMMMHsitaà FI 8 CARICAMENTO DATI DA CASSETTA" 
PRINT"NA F3 ® CREAZIONE DI UN NUOVO ARCHIVIO" 
PRINT"MA FS 8 CARICAMENTO DATI DA CHSSETTH" 


PRINT" CUN VARIAZIONE INTESTAZIONE” 
PRINT" DEI CAMPI" :PRINT"MA F? ® FINE" 


PRINT"MM"M":PRINTCHRSCA73>:PRINT"A 8"; :PRINTCHRS$(154)) PRINT" R3CEGLI®" 
GOSUESGOGO 

R$="": GETA$: IFA$=""THENZ1O 

R=0: IFR$="M"THENA=1:G0T01136 

IFA$="®" THENSSO 

IFA$="lR"THEN1136 

IFR$="I" THENS36O 

GOTOZIA 

IFTi=1THENPRINT#4," ":CLOSE4 

POKES3286. 14 :PRINT"7":CLR:END 


REM 
REM CREAZIONE DI UN NUOVO ARCHIVIO 


REM 

2$=" DEFINIZIONE PARAMETRI ARCHIVIO": GOSUBSGOSM 

PRINT" =IMT6ISIMINISISIS ES TMIBIN IA Ia teIMIsI®" PRINT" IMMETTI lL NOME DELL'ARCHIVIO" 

PRINT" «MASSIMO 2 CARATTERI)" ; 

GOSUB40090: IFE&=""THENS?6 

IFLEN(E$>)>STHENZ$="NOME TROPPO LUNGO - RIPETI" :60SUES4GIZO:G0T0576 

Pèt=B$ :A2=18:A3=6 : G0SUB4GZZO 

PRINT "SMMMMIMNAFRCHIVIO: SB"; TAEC12):CHR$ 5; "a"Pe "n PRINTCHRS(154) 

PRINT "SI MMPISTeIRIMMTMIsTnteIstetaInto" : PRINT" © IMMETTI IL NUMERO DEI CRIPI": 

PRINT" DI OGNI RECORD DELL'ARCHIVIO" 

PRINT" «MASSIMO 90)" 

G0SUB4069G :N1I=INTCVALCES)5 

IFNI<10RFRH1>96THENZ$®="NUMEFÙ EFRATO — RIPETI" :605UB4HISE:GOT065O 

PRINT "=IMMMM" ; PRINTTAB250; H1 "CAMPI": DIMHE N15. LEN 

REM LOOP PER IMMISSIONE NOME E LUNGHEZZA CAMPI 

AS=0 :R7=1239 

FORX=1TON1:A2=18:A3=6 :605UB4OG2ZZO 

PRINT" =IMMMIMMEIME e ]RIBINTetetetntat zac HP di, "oi, 

PRINT" IMMETTI IL NOME DEL CAMPU" 

PRINT" (MASSIMO 9 CARATTERI)" 

GO0SUB4O09O : IFB2="" THEN740 | 

EMIR TROPPO LUNGO -— RIPETI":G0SUB4G186:G0T0740 
(X)=B$ 

IF%=110RX=210RX=310RX=410RX=S10KX=610Rx=#1 THENHS=HS+1:A2=6:H2=16:G05UE4OZIO 

IFX=S31THENAS=AS+1:A2=5 :A3=16 GOSUESOZEA 

PRINT"=MMMN" :FORY=1TO0X-AS# 16) PRINT"""; NEXT 


5 PRINT"A";N$1 x); "8 A2=12:A3=6 | GOSUB4OZIO 

36 PRINT" =I01Me ISIS TATO IS TSIRIM Ae TRIBIMM A CAMPO N, "ii, 
46 PRINT"IMMETTI LUNGHEZZA DEL CHMPU" 

6 PRINT" CMASSIMA LUNGHEZZA !:30)" 


netto to 


e] 


put qnt nt ti unit nt pt pn dr n n n n A O AL NO AO TU I e LO CO 00 CO CO 00 0000 


fact fiction n pin n E E OC TT CM LL CI I a e ei COD È 


ri o 0A UE e € 


CI ccadRoanroe a 


GOSUB4GGSG : IFBX=""THENS6O 

LEX>=INTEVALCB£) > 

IFLCX)C10RLX)>SSTHENZ$®="LUNGHEZZA ERRATA - RIPETI" :605UB46136:GUT0860 
2$="":FORY=1T0L CK) 2%=2$+CHR$ 32): NEXT 

PRINT "sIMBIM9" :FORY=1T0X-(A5#16) PRINT"*M"; NEXT 

PRINT 'IDPBBPBBBBIA": CHRESCA7); 25": PRINTCHREC154) 

IFA?=129THENA7?=28: GUTO9IO 

IFA?=2STHENH7=129 


NEXT 

REM RICHIESTA DI CUNFERMA 

GOSUBIOZSA 

IFR$<C>"S"THENA2=6  R3=10: 6(0SUB4H230 RUN 530 
REM 

REM INIZIO FASE IMMISSIONE 

REM 


AG=FRE (d)- (S6N(FREC0)) 0) #655235: A6=AE-500 : FORX=1TONI : BR=BR+L CX) : NEXT 
ER=BR+(5#N1+1)0):RM=INT(A6/BR) :RR3O:RT=RM-1:RL=RT-RR 
DIMH$ CRM. 1), ARCRM> : GOT01500 

REM CARICAMENTO DA CASSETTA 

2$="CARICAMENTO DATI DA CHSSETTA" :50SUB4GHIO 

PRINT "Issa" : Cs="MEMOR47" 

DPENI. 1,0, C$ 

INPUT#1,C$: INPUT#1.P%: INPUT#1,.N1:INPUT#1,RM 
DIMHS$N1),LECN1) 

FORK=1TOH1: INPUT#1,N$x) :NEKT 

FORX=1TO0N1: INPUT&#1,.LC83:NERT 

DIMH$ CRM, N10), AZCRM> 

n= 


=TTH::5(0 64 


RIFINISINISIO 


Forti ceri cei crei ceri cei cei ceri ceri cei conii cei coil ceti eri 


Seguito listato Memory 


K=K+1 

FORY=1TONI Alfa Ir. 
INPUT#1. HF CK, 7): IFH$CK,4)="IUMMY"ANDY=1THEN1290 

NEXT:G0T01235 

CLOSE 1 :RR=X-1:H$(K,#)="":RT=RM-1:RL=RT-RR: IFA=1THEN1609 

FEM VARIAZIONE PARAMETRI 

28=P$+": VAR, NOME CAMPI": G0SUE4GGZO 


i PRINT"=IMMaIM:ARCHIN]I0:8"; TABC12); CHR8C5)"a"P£"":PRINTCHR$C154) 


PRINT "SME"; PRINTTABCZ5)I;NI "CAMPI" :A5=G 


KDNITHENIS4G 
5: GOSUE4GZ8O 


; PRINT! SMI IT TItA]AMPO NM. "iM; "®"; PRINTH$C) 


PRINT" IMMETTI IL NUOVO NOME" 
GOSUB4OGIG : [FB$="" THEN1460 
IFLENCE$)>9THENZ£="NOME TROPPO LUNGO - RIPETI":60SUB46180:G0T01400 


1420 N$cCX>)=BE$ 

1440 IFX=110RX=2Z10FRX=310RX=41THENAS=R5+1:A2=6 :A3=16:605UE40220 

1450 IFX=S10RX=610RX=710RX=S1THENAS=A5+1:A2=6:A3=10:G0SUB4GZ2SO 

1460 PRINT"sIMeMa" :FORY=1T0X-CA5#10):PRINT"M"; :NERT:PRINT"a";N$8 04); "Mn" 
1490 2$="":FORY=1T0L(X):Z$=Z$+CHR$ (32) : NEXT 

1500 PRINT "IMM" : FORY=1T0-<A5#10) :PRINT"A"; NEXT 

1516 PRINT "IDDDDBBBBBBIAI":; CHR$CA7);2$; "8" PRINTCHRSC154) 

1512 IFR7=129THENA?=28:G0T01520 

1514 A7=129 

1520 GOTO1345 

1530 REM RICHIESTA DI CONFERMA 

1546 G05UE40380: IFA$C>"5" THEN1326 

1560 NV=NV+1 

1550 REM 

1535 REM MENU” PRINCIPALE DI LAYORO 

1599 REM 

1600 2$=P$+": MAIN MENU” ":600SUB4OGIA 

1616 PRINT"siMmMve)3 Fi 8 IMMISSIONE RECORD" 

1620 PRINT"NA F3 8 RICERCA PER VARIAZIONE" 

1622 PRINT" ANNULLAMENTO" 

1624 PRINT" RIATTIVAZIONE" 

1640 PRINT"WA FS BU SALVATAGGIO DATI SU CASSETTA" 

1660 PRINT"MA F7 8 FINE" 

1676 PRINT"MN CAPACITA” RECORD: "RT 

1520 PRINT" CONTENUTI: "RR 

1696 PRINT" DISPONIBILI: "RL 

1700 PRINT"A":PRINTCHR$(R7) PRINT"A m'; :PRINTCHR$(154); PRINT" aSCEGLIN" 
1710 GOSUBZGGOY 

1720 A#="" :GETA$:IFA$=""THEN1720 

1756 IFR$="0l"ANDER=GTHENERUN 

1755 IFR$="8"ANDHY=6THENRUN 

1756 IFAT="@"ANDRR=RMTHENZ$="RAGGIUNTA CAPACITA” MASSIMA" :60SUB40486:60T01720 
1760 IFR$="®"ANDRR=GTHENZ$="NESSUN RECORD DA RICERCARE" :G0SUB46480 :G0T01720 
1770 IFAS=" "ANDRR=OTHENZ$="NESSUN RECORD DA SALVARE" :G0SUB494830:G0T01728 
1730 IFR$="M"GOTOSOHO 

1751 IFR$="8"GOTO0S040 

1782 IFA$="B"G0T01950 

1783 IFA$="B"60T01306 


G0T01720 
REM FINE - SALVO SU CASSETTA? 


00 23=P$+": ALLARME ROSSO" :G0SUB40030:PRINTCHR$<(5) 


FORX=1T0S: PRINT" Mea" TABS) "ATTENZIONE! " 
FORY=1T0206:NEXT:PRINT" 3a” TABS)" ATTENZIONE! 8" 


1830 FORY=1T0200:NEXT:NEXT:PRINTCHR$ (154) 

1340 PRINT "=ISPMMMIMMMo)" PRINT" HAI EFFETTUATO OPERA DI" 

1350 PRINT" MANUTENZIONE SULL'ARCHINIO," 

1865 PRINT 

1870 PRINT" VUDI VERAMENTE TERMINARE" 

sso PRINT" IL LAVORO SENZA SALVARE" PRINT" I DATI SU CASSETTA?" 

1300 GOSUB4G389: IFRE="S"ANDT1=1THENPRINT#4," ":CLOSE4 

1510 IFR$="S"THENRUN 

1912 GOTDIS6OO 

1920 REM x 

1920 PEM SALVATAGGIO DATI SU CASSETTA 

1940 REM 

1950 28=P$+"} SALVATAGGIO DATI" :GOSUB4GOZE 

13650 PRINT "MMM": H£RF+1, 1>3=" DUM" 

2600 Cs="MEMORY" ” 
2010 OPENID. 1,1,C$ © 
2026 PRINT#1.C$:PRINT#1,P* :PRINT#1,N1:PRINT&#1,RM i 


1984 * Bit. 33 


Seguito listato Memory 
Alfa IV. 


34 - 1984 © Bit 


ho fofo fu 
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FOR=1T0H1:PRINTR1.N$(#0 NEXT :FORK=1TO0N1 :PRINT#1,LCK):NEXT 
=: v=i 

n= 1 

IFRZK0= 1 THENSO7O 

retti :PRINTRI.A8C#, 40: IFH®(K,%3=" DUM?" THEN2130 
IFW=hi THENY=M: GOTOLO?4 

GOTO2ZOaZO 

CLOSE 1 :1NV=0: RUN 

REM 

REM IMMISSIONE NUOVI RECORD 

REM 


Gad 7$=P$+": IMMISSIONE DATI" 


[IFRFRSRMTHENZE="RAGGILUNTA CAPACITÀ” MASSIMA MEMORIA" :G0SUB4G1S0:G0T01500 


20 A2=4:/AISI0A: G0SUBIA?IO 
Man PRINT" Tee teTe Tee [nta] 1s]ele7n]n)" 
2046 PRINT" a Fi ® FER IMMETTERE I DATI" 
559 PRINT" da Fo ® PER TERMINARE" 
Med GOSLUEZSIARO 
b70 A£="". GETR$: \FAT=""THENGO70 


[IFR$="m"G0T0G120 
IFR$="8" GOTOLS5OG 
GOTOsa79 

PER IMMISSIONE 


120 PRINT" sinelelsia [MM [SoS IONE FECORD MN. "ibifc#1; "e; "iN1: "CAMPI" 


AS=0 :K=0 

R=R+1: IFK>NITHENSGSIO 

A2=18:A3=5: 60SUE4OZZO 

PRINT" =(MIsIMIsInIn]eIsIeteTaTa Tate TnIn za AriPo MN, "00; aa; 
PRINT" CLLLI LIT LI (RANE. 
PRINT"MIMMETTI IL CONTENUTO DEL CAMP" 


5 PRINT" MASSIMO CARATTERI: "L(x>i">)" 


GOSUB4GGIO : IFB$=""THENB#="," 

IFLENE$>>LC(K>THENZ$="TROPPI CHERTTERI 

H$(FR+1,%)=E$ 

IFX=110RX=2Z10RK=310RX=41THENAS=AS+1:A2Z=6 :fA3=10: GOSUB4OZEO 
IF#=510RX=610R%=?7 10RK=S 1 THENAS=AS+1:A2z=6 A4=14: G0SUBIGZSO 
PRINT "SM"; :FORY=1TOK- AS#100:PRINT"M"; NEXT 
PRINT"A";N$5(K);"m" 

PRINT "SIMMMUW"; :FORY=1TOX- (AS#100) PRINT"; NEXT 

PRINT "IBbBBBBBBBI 3 (FF+1,%) 

G0T03140 

REM RICHIESTA DI CONFERMA 

GOSUB4038G 
IFR$<>"S"THENFORY=1T0N1:H$(RF+1,4)="":NEXT:60T70360168 

REM CONFERMATA IMMISSIONE 

1/=HW+1 RR=RP+1:RU=RL-1:GOTOSOIO 


REM 
ie MENU” PRINCIPALE DI RICERCA 
Mi 


Z$=Pî+": RICERCR/VARIAZIONE" : GOSUEADOSO 

PRINT"SIMtEemmmuna Fi 8 ORDINAMENTO" 

PRINT"MA F3 ® = RICERCA/VARIAZIONE TOTALE" 

PRINT"MA FS ® RICERCA/VARIAZIONE PARZIALE" 

PRINT"MA F7 ® FINE" 

PRINT"M RECORD CONTENUTI: "RR 

PRINT"M" :PRINTCHR$CA7) :PRINT"A = M"; PRINTOHR$C(154); PRINT" RSCEGLIN" 
GOSUBZGG0O 

A$="" :GETA$: IFA$=""THENS110 

IFA$S="M"ANDRR=1THENZ8=" IMPOSSIBILE: SOLO UN RECORD" :GOSUB4B480:G0T05110 
IFA$="ll"ANDRR=1THENZ$=" IMPOSSIBILE: SOLO UN RECORD" :G0SUB40480:G0T05110 
IFA$="@"THENSZ06 

IFA$="®"THENS196 

IFR$="ll'" THEN7 066 

IFR$="Hl"THEN1606 

GOTOS116 

REM ORDINAMENTO 

2$=P$+": ORDINAMENTO" :G0SUB40G30 

PRINT"SIMitna Fi 8 SORT ASCENDENTE" 

PRINT"MaA F7 ® SORT DISCENDENTE" 

PRINT" Mea" :PRINTCHR$CA75:PRINT"A 8"; PRINTCHR$C154); PRINT" R35CEGLIN" 
GOSUB30668 

A$="":GETA$: IFA$="" THENS250 

IFR$="M"THENEZ=6 : GOTOS200 

IFA$="Hl"THENB2=1 :GOTO5300 

GOTOS25O 

REM PARAMETRI SORT 


Seguito listato Memory 


IFB2=OTHENZ$=P$+": SORT ASCENDENTE": GOSUB4GOSA Ifa IV. 
IFB2=1THENZ$=P$+": SORT DISCENDENTE": G0SUB4IGOSO Alfa IV. 


FORX=1T083:GC0X)=B:G$C(#)="":NEZT 

Ali pira cli de PARAMETRI SORT" 

X=X+ 1: IFX>SORX>N1 THENSSZO 

PRINT "sItIsIstTeTateIetateTataeIatata] = IMMETTI IL NUMERO O IL NOME" 

PRINT" DEL CAMPO IN BASE AL QUALE" 

PRINT" — VUOI EFFETTUARE L'ORDINAMENTO" :PRINT" <“®’ FER TERMINARE) 


O GOSUE4GGIG 


IFLENCB$>)>93THENZ$="TROPPI CARATTERI - RIFETI":G05UB4G430:G0T0540G 
IFE$="@"ANDX=1THENS040 

IFB$="@" THENSSZ0 

di Lai ie delli ita e 

NEXT 


5 A=INTCVALCB$)) 


IFACIORA>NI THENZ$="PARAMETRO INESISTENTE" :G0SUB40480 :GOTO0S360 
G$(K3=N$ CA) :G(X)=A 

PRINT"=IMMine" :FORY=1T0X: PRINT"M"; NEXT 

PRINT "PARAM. "&" "GCK)”" "GECA): 


5 GOTOS35O 


FORK=1T07?:FORY=K+1T08 

IFGCW)=6THENS525 

IFG(X)=G(7) THENZ$="ALMENO UN PARAMETRO RIPETUTO" :G0SUB46430 : GOTO5300 
NERTY 

MEKTK 


32 REM CHIEDO CONFERMA 


GOSUB4G330 : IFA$C>"5" THENSO4O 


fj REM ESEGUO IL SORT 


PRINT"7":2$=P$+": ESECUZIONE SORT" :605UB4G026 


i PRINT "=MMMSIMORDINAMENTO ARCHIVIO "P£ 


PRINT"IN ESECUZIONE" :PRINT"MATTENDERE, PER FAVORE" 


G [1=1:J1=RR 
G I=I1:J=J1:S5=-1 
Hi GOSUB4OSOO 


IFE2Z=0ANDU$<=V$£ THENS650O 
IFE2=1ANDU$>=V$ THENSSSO 
GOSUB4O70O 

S=S6N{-S) 
IFS=1THENI=I+1:G0T05670 
J=J-1 

IFICITHENS6520 
IFI+1>=J1THENS700 
P=P+1:S$9<P,1)=1+1:S5(P,2)=J1 
Ji=I-1 


716 IFIICIITHENS61O 


IFP=GTHENSGOO 
11=S9<P, 12: J1=S9(P,2):P=P-1 

GOTOSE1O 

REM 

REM MESSAGGIO TERMINE SORT 

A2=4: AT=20: GOSUE4A2ZIO:PRINTCHR$C5) 

xK=0 

K=X+1: IFX>STHENPRINTCHR$ 154) : GOT0504G 


5 PRINT "spanna TRES)" S0RDINAMENTO TERMINATO" 
5 FORY=1T0206:MEXT:PRINT "sean TAB(5) "ORDINAMENTO TERMINATO" 
5 FORY=1T0200:NEXT:G0T06015 


REM 
REM RICERCA TOTALE 
GOSUBSGNGA : GOSUESE OG 


5 IFINT(N1/10)=N1/20THENPS=N1/10:GOT0E23O 


P2=INTH1/169)+1 


0 Pi=d:P=M:C5=0 


TRI RISI SERERDO 


5 Z$=P$+": MANUTENZIONE": GOSUE4GGZO 
6 IFT4=MTHEN6240 

* ZB=RR:P=6 

3 GOSUBS7AO” 

ONTEGOT06290, 5040 

i IFCS=MTHENZZ=1 


2 IFCS=1THENZZ=-1 


P=P+ZZ:P1=0: IFF>RRORFC1THENGZIO 


fi GOSUESDODO 

i IFES=HTHENGZ4E 

5270 GOTOSG4O c- 
289 REM MESSAGGIO FINE RICERCA ®© 
90 Z8=P$+": TERMINE RICERCA": G0SUBIGGSO : PRINTOCHREC5) I 


Seguito listato Memory 


5 PRINT" 


REM 

Pi=Pl+1 

GOUSUESSZGO 

REM VIDERTA CAMPI 
GOUSUESSONA 
IFCS=1THENSOI 160 
REM VIDEATA SCELTE 
GOSUESZIDG 


STMIMRIA TRI TN Te Ie TR TATA Ta Ta Le 18 Ten 8128) 
PRINTCHRS€A7) :PRINT"A '. :PRINTCHR$(154); PRINT" ASCEGLIN"; 


Hi GOSUESOGOG : E9=0: CASH 
“n A$g=" " :(GETRE : IFR$=" “” THENS6O1:; n 
2 IFR$="S"ANDT1=1G0T050126 


GOTOSH120 
GOSUESOSBA : GOTOSH120 
IFR#="®"THENF1=P1+1:G0T05030G 
IFR$="IN" THENF1=P1-1:GOTOSOSZO 
IFR$="Mll" THENCS=0 : GOTOSOZIA 


IFR$="R"ANDAZP)=1THENSO228 
IFRE="B"ANDAXP)=6THENAX(P)=1 : 60705096005 
IFR$="@"ANDAX(P)=SOTHENSO24O 
IFR$="#"ANDA<P)=1THENH(FP)=6: G0T0500G5 


65 IFA$=" ENTHENCS=1:GUT0S039G 


IFR$="m"THENSO250 


5 GOTOSOI16 


Z8="IL RECORD E” GIA? ANNULLATO" :G0SUB46120 :G0T0S61066 
2$="IL RECORD E GIA? ATTIVO" :60SUB40180:G0T050166 


gi REM VARIAZIONE 

5 GUSUESIGAI 

i GOTOSO00S 

G REM PAGINA AVANTIZINDIETRO 


IFP1>P2THENP1=1 


d GOTOSGGGS 


IFP1I=STHENP1=P2 


2 C9=1 


GOTOSHGGS 

RETURN 

REM 

REM VIDEATA CAMPI 
REM 


A2=7 :R3=10: 0OSUB4G280 : PRINT" SMMMIgUA" 
FORX=(P1%19)-ST0P1#19:IFX>H1THENS3060 


A PRINT"8" :FORY=1T05+%-<(P1-1)%*10) :PRINT"îN"; NEXT :PRINT"a"N$(g) "n" 


PRINT"s" :FORY=1T05+X-<CP1-1)3#160):PRINT"M"; :NEX 


43 PRINT "Ibba HE CF, NEET 
54 RETURN 

4 REM 

2 REM VIDERTA SCELTE 


RÉM 


i Az=12-A3=6: GOSUE4GZZO 
vi PRINT" SiTInTTe ATTIMI FIOM VARIAZIONE a F2 ® FINE LAVORO" 


io a LU CU LU ui Lo al o GI I 
I na 


5 PRINT"A F3 ® PAG.AVANTI a FS ® PAG, INDIETRO" 
309 PRINT"9A F4 2 ANNULLAMENTO A F6 ® RIATTIVAZIONE" 
SO PRINT"A F7 2 RIC.AVANTI A FS 8 RIC, INDIETRO " 


70 RETURN 


mOnon on inin on onen en un ci ( 


REM 
REM SUBROUTINE INTESTAZIONE 


Hi PRINT" =TMTSIRTSA] "i PRINT'SINMIMPINSRECORD N, "PU; 


IFRX(P)=BTHENPRINTTABCIZ)>"® ATTIVO è at, 
IFRX(P)=1THENPRINTTAB<13)"% ANNULLATO €; 


A Z28(0)=STR&(P1)+" "+STRE(P2)+" " 


numenunnmnnuit 
) La pa] dI w LI Gi dI GI LI 


PRINTTRE(33)"d"2%(0) "n" 
PRINT" =IeTeletela)" 

RETURN 

REM 


2 REM SUBROUTINE YARIAZIONE RECORD 


GOSUBSI3200 : GOSUESSOGG : AZ=18 : A3=6 : GOSUB4AZZO 

3=P1 
PRINT" =MTMSTMTR TAM IN ATe(e{nIs{alntetm" : PRINT"IMMETTI IL NOME O IL NUMERO" 
v_PRINT"IDEL CAMPO CHE VUOI VARIARE" 


a i N PG DI Id SI I ov i GL I n 4 


54095 
54097 
., 54160 
54126 
54125 
54136 
54146 
54160 
54170 
54150 
54190 
54200 
54216 
54226 
Sg; 220 
54240 
54260 A 
S4270 
54272 
54275 
54360 
54315 
54320 
54320 
54346 
55992 
553994 
55996 
SEnoA 
56610 
S6026 
56030 
56046 
S6050 
SEn6 
Se070 
56206 
Sezia 
56240 
56490 
565492 


PRINT" "; 
GOSUE4OGIO : IFB#="" THENS4 104 
IFLENE$>>93THENZ8="TROFFI LARATTERI - RIPETI":G0SUB409186:G0T0541090 
IFE$="@"THEN54340 
REM RICERCO IL CAMPO 
FORY=1T0H1:IFB#=N£ <> THENS4206G 
NEXT 
A=INT VAL CB) 
IFACIORA> INI THENZ=" CAMPO INESISTENTE - RIFETI":G0SUB40185: 607054100 
Q=fA: 607054220 
oe 
REM RICHIESTA VARIAZIONE 
IFINT(0/10)=Y/16THENP1=INT0716) 507054240 
Pi=sINT(0/105+1 
GUS UIESS206 | GOSUBSIO 
=13:/A3=6: GOSUB4IGZEE 
PRINT" STATI" 51) si a 
PRINT" STMUNTNISTSTA ITS TATA TA TS L8L8T8 Le Lee a Da po Gipi dee ei‘ Pi, 11) 
PRINT "SIsIsteeleletTeTeTeTateTeTnteTeTaTaI METTI IL NUOVO CONTENUTO DEL CAMPO" 
PRINT" (MASSIMA LUNGHEZZA: "L(0)")" 
GOSUE4OOIGO : IFE$="" THENB#="," 
IFLEN(E$)>L(0)THENZ$="TROPPI CARATTERI - RIPETI" :G0S5UB46180:G0T054310 
H$ <P, Q)=E$:NV=NV+1: GO0T054G00 
RETURN 
REM 
REM RECORD CONFRONTO PARAMETRI 
REM 
C4=0: Ce=o 
FORK=1T0N:XX$=MID$CH$ CP, W4X(K3), XZCK) LENCA$CK2)) 
IFH$(K)="="ANDKK$=KX£ (K)THENCE=C6+1:G0T056200 
IFW$(K)=">"ANDKX$>X$(KDTHENCE=C5+1 607056200 
IFW$(K)}=">="ANDXX$>=X$C(K)THENCE=C6+1:G0T055200 
IFU$<K)="<"ANDKX$Cx$ CK) THENCE=C6+1 : GOTUSE200 
IFW$(K)="<="ANDKXK£<=K$ (K) THENC6=C6+1 607056206 
TFUS CK =" £>"ANDINSC >K£(K)THENC6=C6+1:G0T055206 
HEXTK 
IFCE=NTHENC4=1 
RETURN 
REM 
REM CHIEDO SE SI VUOLE STAMPA 


56494 REM 


S6sSoo 
56520 
56530 
56540 
Sessa 
56550 
5es70 
56580 
56690 
56692 


56694 RE 


56700 
Seria 
S6720 
56730 
56740 
56750 
S6760 
565770 
56780 
56750 

S6200 
S6810 
56320 
56830 
55990 
55992 
GE9I94 
S7000 
57020 
570620 
57032 
57034 
S7036 


CESTI ALEB i Vi 630: T1=0 
SIM HAI LA STAMPANTE E VUOI USARLA?" 


nlictipad006 
GETA$: IFR$=""THENS6546G 
IFR$<C>"N"ANDA$<>"5S" THENS6540 

IFR$="N"THENS6530 

Ti=1:0PEN4, 4 

RETURN 

REM 

REM VARIAZIONE VELOCE DI UN CRMPO? 

M 

Z2$=P$+": VARIAZIONE VELOCE" :G0SUB4GG3G: T4=0:T5=0 

PRINT " sfSTe[SIEIsIAINTAINTA]eINTelMTe {8185 E VUOI AVERE LA POSSIBILITÀ?" 
PRINT"DI VARIARE VELOCEMENTE UN CAMPO" 

PRINT"IMMETTI IL SUO NOME O IL suo NUMERO, " 
PRINT"ALTRIMENTI IMMETTI “BB, 

GOSUE4GGIO 

IFE$="@"THENS6S36 

IFLEN(B#*>>STHENZ$="TROPPI CHRATTERI - - tai G0SUB4H486 : GOTOSE7SO 
FORY=1T0NI:IFB#=N$<) THENTS="Y:G0T05682 

HEXT 

TS=INTCVAL<B$)) 

IFTSCIORTSP>NITHENZ$="CAMPO INESISTENTE — RIPETI":G0SUB46480:G0T056750 
T4=1 

RETURN 

REM 

REN RICERCA CON VARIAZIONE VELOCE 

REM 

IFINT:T5/16)=TS/10FHENP1=INT15219):G0T057030 
Pi=sINTXT5/103+1 

Té=b :P=P+1:IFF>ZETHENTS=1 :G0T0S7150 

IFTS=B0RV=GTHENS7046 

GOSUBSEOGO 

IFC4=9THENS 76369 


(18 Seguito listato Memory 
PRINT x IDOLI Alfa IV. 


Seguito listato Memory 
Alfa IV. 


38 - 1984° Bit 


[svE1315] 
6305 


#=0 
K=Kt 1: IFX>3THENFRINTCHR£® 154): GOTOSM4G 
PRINT "SMimaaa]CERCA ARRIVATA A FINE ARCHINIOB 


20 FORY=1 TOPO: NENTY PRINT" MMI CERCA ARRIVATA A FINE ARCHIVIO" 
3 FORY=1TOZOG:NEXIY 


GOTOESGS 


50 REM 


REM RICERCA PARZIALE 
REM 
Z$=P$+": RICERCA RECORD": GOSUE4GGZO 


4 PRINT"={MMMIMeIt) a F3 8 = DETECTOR SU TUTTI I RECORD" 


PRINT"MaA FS 8 DETECTOR SU PARTE DEI RECORD" 

PRINT"MA F7 ® FINE" 

PRINT" EINISIBtete]m" 

PRINT""N":PRINTOHRS<A7) :FRINT"A mi :PRINTCHR$(154); PRINT" S5CEGLIN" 
R$="":GETA$: IFA$=""THEN7OSO 

IFR$="®" THENZP=1:2A=RF:G0T07380 

IFA$="ll" THEN7115 


6 IFR$="Bl" THENSO4G 


GOTO7BEG 


5 REM PARZIALIZZAZIONE RECORD 


2$&=P$+": LIMITI RECORD": GOSUB4OGSE 
PRINT" SIMTeIsTATaTe tele ]ete]e]eTen 181 N18)" 
PRINT"IMMETTI IL NUMERO RECORD" :PRINT"LIMITE INFERIORE" 
GOSUB4OGSO : IFES=""THEN7150 


70 ZP=INTC(YALCES)) 


IFZPC1THENZ$=" DATO IMMESSO TRUPPO BASSO —- RIPETI" :G0SUB46130:G0T07159 
IFZP>RRTHENZ8="IATO IMMESSO TROPPO ALTO - RIPETI":G0SUB46120:G0T07150 
PRINT"SisteelÌii IMITE INFERIORE: guzp"on 


6 PRINT" SIMTETN ente Te e ISTaTAI=T8 ste ]eTeT"' 


PRINT"IMMETTI IL NUMERO RECORD" :PRINT"LIMITE SUPERIORE" 
GOSUB4G9G9IO : IFB$=""THEN7250 

ZA=INTCVALCB$)) 

IFZA<1THENZ$="DATO IMMESSO TROPPO BASSO — RIPETI" :G0SUB46180:60T07250 
IFZA<ZPTHENZ$="DATO IMMESSO TROPPO BASSO — RIPETI":G0SUB40186:G0T07250 
IF2A>RRTHENZ$="DATO IMMESSO TROPFO ALTO —- RIFETI":60SUB40130:G0T07250 
REM RICHIESTA DI CUNFERMA 


G PRINT"=IMMMaelee MITE SUPERIORE a'zA"n" 


RA2=18:!A3=6 : G0SUB4GZSO 

GOSUE46386 : IFRE<>"S"THEN700G6 

REM PARZIALIZZAZIONE CONTENUTO CAMPI 

Z$=P$+": PARAMETRI DETECTOR": GOSUB4OGZO 
EIMTETETRTETRI8)"! 


5 PRINT" SIM MNINSIATe ISIN 
5 PRINT"PARAMETRI: A=Mmaga};8Bga5x=:BIdBideBAO0 #" 


PRINT" ":PRINT"< “@’ PER TERMINARE)" 

V=6:FORK=1T07 :04X(X)=0 8404) =0:M&(x)=" " K$(X)=" "NEXT 
PRINT "=iaIst]" 

V=M+1:IFV37 THENV=4-1:G0T07706 


se bi= u n 

5 PRINT"CAMPO N."; :INPUTE$ 

5 IFE$="@"THENY=4-1:G0T07700 
5 MCV =INTCVALCB$)) 


IFIda 4) < 1ORWZV>>3NITHENPRINT"7] n":G0T07476 
PRINT"ICAMPO N. "Wa(W>;" "; 

E$=" ":PRINTTABC13)"POS, INIZ.";: INPUTB$ 

IFE$="i" THEHNY=4W-1 :G0T0?700 

RACSVI=INTEVYALEB$)) 


O IFKA CV) >OANDAA (NY) <=L (4745) THEN?550 


PRIMT"TI":PRINTTABCIS)" DI":G0T07510 
PRINT"7I"; :PRINTTABC(13)" POS,INIZ. "KA0W);" "; 

E$s=" ":PRINTTAB<(23) "PAR, ":;: INPUTB$ 
IFB$="@"THENV=W-1:G0T07 700 
IFB$="="O0RE$="}"ORB$=">="0RB$="<"ORE$="<="ORB$="<>"THEN7640 
PRINT"T]":PRINTTAB<C28)" 1" :G0T07560 

W$ CW >=B$: PRINT"1"; :PRINTTABC28) "PAR, "W$(V)" ° 
B$=" ":PRINT"CARAT. ";:INPUTB$ 
K$CW)=MID$CE$, 1, LMR) + RZ) 

PRINT" a 
PRINT"CARAT. "A$CY) 

GOTO745G 

REM FINE IMMISSIONE PARAMETRI 

A2=19:A3=5: G0SUB4G2836:PRINTCHRS(5); 


PRINTCHR$C5); 
: CONFERMI?"; :PRINTCHR$154); 


GOSUEZGGGG 
AS=" (LOR GETRÉ ° IFR$S=" "THEN?7718 


IFR£C>"5"ANDAS<C>"N"THENZ716 Seguito listato Memory 
IFASC>"S"THEN7009 Alfa IV. 
GOSUESE7?DA 

T8=1:G0SUESIGGO: T8=g:Zi=Pt+": MANUTENZIONE": 605UESOOZO 
IFINTCN1/16>=H1/ 10THENF==N1/19:GO0T07 7650 

P2=INTXN1/1605+1 

Pi=sbi:P=P-1:C5=0 

IFT4=0THEN777O 

TS=1:ZE=ZA:P=2P-1 

GOSUES? GG 

TS=U 

ONTSGO0T0629IG, SO4” 

IFCS=MTHENZZ=1 

IFCS=1THENZZ=-1 

P=P+Z7:Pi=b: IFFXZPORFPO>ZATHENG290 

REM RICERCA SE RECORD VALIDO 

7805 IFV=@BTHEN7SSO 

7820 IFC4=MTHEN? 790 

7846 REM VISUALIZZO PER MODIFICHE 

59 GOSUEBSOOOGO 

60 IFES=MTHEN77 70M 

So GOTOSO4O 

Snada FORA3=1T010:GETAS NEXT: RETUFN 

40066 REM 

40014 REM INTESTRZIONE DI OGHI VIDEATA 

4uaza REM 

406030 PRINT"I":FORA1=1IAZ4TO1 143: POKER, 160: NEST 

40635 PRINT"SN"; :FORA1=1TOINT<€40-,LENC253)22) PRINI "RI", HEAT: PRINT"a"25"m" 
40asd FURR1=55295T055415:POKERI,. 7 :NEST:RETUEN 

400564 REM 

40070 REM IMMISSIONE STRINGA GENERICA 

40030 REM 

40090 PRINT" SIMAlelMtaIK Tata laleta Tate (els ta nimtmin]' | 

460100 PRINT" "; 

40105 FORAS=1T010:GETB$: NEXT 

401159 E$="" :PRINT"TI":PRINTCHRS$ 50); : INPUT"  —>":E%:PRINTCHRS$<154); : RETURN 
46150 REM 

40160 REM MESSAGGIO DI ERRORE 

46176 REM 

46130 PRINT" SINPISIOIS]ISIRIS IN ISIN IMIa Te TRInTATeTeTeTet®[n" ; PRINT" Aa" 7Ee""; FORRISITOLOGA: NEXT 
40200 PRINT" RETURN 
40250 REM 

40260 REM PULIZIA RIGHE SCHERMO 

40270 REM 

346225 PRINT"3S"; :FORA1=1TO0AZ-1 :PRINT"AI"; :NEST 

40296 FORRI=1T0R3:PRINT"N 7)"; NERT:RETURN 
40350 REM 

40354 REM RICHIESTA GENERICA DI CONFERMA 

40370 REM 

40330 A2=16:A3=8: GOSUB4OZEY : PRINTCHR$C5); 

4060385 PRINTCHR$C5):; 

40396 PRINT" S[IMMEINTNe Te ]MININTATe Ta [a [stan [BIn Inti = CONFERMI®":; PRINTCHRS(154); 
40395 GOSUESONOO 

4046G At="":GETR$: IFA$="" THEN4G4GO 

46405 IFR$<>"S"ANDA$<>"N" THEN40G40G 

494165 RETURN 

40475 REM MESSAGGIO ERRORE 2 

d&i430 PRINT" IMM Te Tata InTe Inn Iain] em in {e ]n min Ta tnte]" 

404395 PRINT"A"Z5""; :FORA1L=1TO01000: NEXT 

40500 PRINT" IMMETTE leINTe tate Tea TINTA TATe]M NIN IM A)". 

4dusia PRINT" ba 

4uS26 RETURN 

40530 REM 

40590 REM CREO STRINGHE CONFRONTO SORT 

40595 REM 

Jogo Tt="":1$="":W$="":FURK=1TUS:1FGCK)=0THEN46B6SO 

dueza Us=L$+H$< I, 6CK)5:VE=V$+H$£ (I, GCK)) 

40640 NEXT . 

466556 RETURN 

40630 REM 

406835 REM INVERSIONE PER SORT 

40690 REM 

40706 FORK=1T0N1 :H$0,K3=H$ (1, K3:NEXT 

46715 FORK=1TO0N1:H$<I,K>3=H£J,.K):NEXT 

40720 FORK=1T0N1:H$J,.K>3=H$(6@,K): NEXT 


Ba So Bene Bn n Per Reno Gn Geo dae Sn ay far En] 


DIANSAIAITAIAIAAAIIIAN 
dd Qin A III 


DBAETAanNns. uno e 0 


Seguito listato Memory 57040 GOSUESSSAG: GOSUESZSOGA : AZ=15:A2=6: GOSUB4OZZO 
Alfa IV. 57050 PRINT" SIMSIe late e Ise [a INI ]ninInin)z3' bis 15) "n 
Sac PRINT" SIIT st essa le [Ss Stele daddi EP, TE) 
576070 PRINT "IMM MIseIsTeTslstsIsteIMMMsIMI MMETTI IL NUOVO CONTENUTO DEL CAMPO" 
7090 PRINT" PER FINIRE “ “ PER NON VARIARE)" 
S7106 G0SUEISBHARIG 
57116 IFE$="@"THENT6=2: 601057159 
S7120 IFB$=""THENS7030 


9130 IFLEN(B#3>L<T5) THEN2î="TRUPF] CARATTERI — RIPETI":G0SUE4G139:G0T057100 
57140 H$cP, T5>)=E£ :NV=HNV+1:G0T0S7030 
57150 RETUFH 
REM 
REM RICHIEDO SE STAMPO 
REM 
1 IFTI=OTHENSO1 SG 
IFTS=OTHENZE=RE :P=G 
IFTS=1THENZE=ZH :P=2P-1 
cooa>o 28=P$+": STRMPA RECORÙ" : GOSUEIOGZA 
baudo PRINT" =MelMelMaeets Innata (DI STAMPARE TUTTI I RECORD" 
60055 PRINT"COSI” SELEZIONATI?" 
6i0ieb Ré="" GOsi Eszanan 
Gua GETAR$: IFRE="" THENGOO?G 
6ue7s IFRE<C>"N"ANDA8C>"S5"THENSOO7A 
cenazi IFAS="hi"THENGER1SM 
60090 A2=13:A3=6: GOSUBIHZZT 
bOLEG PRINT "=“[sbleleletels talenti TRMPA IN ESECUZIONE — ATTENDERE PREGO" 
6G1in IFT9=1THENS0136M 
biz GOSUESIAGO :T9=1 
60130 P=P+1:IFP>ZETHENS6O196G 
60145 IFTS=00RV=0THENSO1 76 
60150 GOSUESEAnO 
60160 IFC4=B9THENSO11M 
60170 GOSUBEz20nO 
60130 GOTOSOIIO 
60195 RETURN 
66292 REM 
60294 REM STAMPA DEL RECORD A VIDEO 
60295 REM 
663564 IFT9=1THENSO3 
603159 GOSUBSIGGO:TI 
50320 GOSUEszoanO 
60330 RETURN 
60332 REM 
60994 REM STAMPA TESTATA 
565995 REM 
61006 lWd$="" :FORK=1T071E=|44E+"-" : NEXT 
61905 WX$£="":FORX=1T072:|X&=11X£+""%" NEXT :X=G 
61015 PRINT#4.CHR$(145 
616915 PRINT#4,CHR$(165)"6O7"Pé$; 
61620 PRINT#4, CHR£(16) "46MEMORY ALFA IV" 
616535 PRINT#4, CHR$(15) PRINT#4, CHR£C(15) "04" ;14X£ 
61030 #=K+1:IFX>N1THEN61180 
61160 PRINT#4,CHR$(165) "04%"; PRINT#4, CHR$(16)"07";X; 
61120 PRINT#4,CHR$ (15) "10- ";N$E(K); 
611350 X=&4+1:IFX>N1ITHEN61170 
61146 PRINT#4,CHR$(16)"43";M; 
61156 PRINT#4.CHR$(16)"46- "(N$(K3; 
611504 PRINT#4,CHR$(16)"75"" :G0T0616096 
61170 PRINT#4, CHR$(16)"75%" 
61130 PRINT#4,CHR$(16) "04"; |4X$ 
61190 PRINT#4," " 
51260 RETURN 
61994 REM STAMPA DI UN RECORD 
620606 PRINT#4," " 
62002 PRINT#4,CHR$(18)CHR$(15)"07 RECORD N. ";P; 
62004 IFAX(F)=0THENPRINT#4, CHR£(12)CHR$16)"24 ATTIVO " 
s2008 IFAX(P>)=1THENPRINT#4.CHR$£(18)CHR£(16)"24 ANNULLATO " 
62007 PRINT#4,CHR$(146) 
620038 X=0 
62010 K=K+1:IFK>N1THENS2060 
620206 FRINT#4,CHR$(165)"67" /H£(P,X); 
62030 X=X+1:IFK>N1THENS2056 
62040 PRINT#4,CHR$(16)"43";H$P,X) :G0T062019 
52050 PRINT#4,CHR$(16)"43 " 
2050 PRINT#4, CHR$(16) "OS" UNE 
A76 RETURN 


20 
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Function-key 


Questo semplice programma gira su VIC 20 non espanso e permette di 
assegnare 8 parole chiave del BASIC ai tasti funzione. 


di R. Comini 


j | programma BASIC alloca un piccolo pro- 
gramma in linguaggio macchina di 139 byte 
alla fine della Memoria. Un programma media- 
mente lungo può essere battuto e fatto normal- 
mente girare anche quando questo in linguag- 
gio macchina è attivo. 
Nella linea 40 vi è un controllo che assicura la 
correttezza dei dati onde evitare malfunziona- 
menti. 
Sono definite 4 funzioni permanenti: 
FI schermo colore normale 
F3 schermo nero 
FS quote mode on (aperte virgolette) 
F7 quote mode off (chiuse virgolette) 
E naturalmente usando in contemporanea ai ta- 
sti funzione lo shift o iltasto “Commodore” si otter- 
ranno (nella posizione comente del cursore) le 
parole chiave del BASIC. Potete naturalmente 
scegliere la parola chiave del BASIC che deside- 
rate ed assegnarla al tasto funzione che preferite 
alterando gli N valori contenuti nel DATA della 
linea 200. Ad esempio, il valore 99 assegna a SHIFT 
+ F1 la parola chiave PRINT mentre 89 assegna a 
SHIFT + F3 la parola chiave POKE. Questi valori 
della linea 200 dicono dove si trova nella tabella 
delle parole chiave, residente in ROM, la parola 
chiave desiderata. Alcuni valori perciò potranno 
dare strani risultati, ma tramite tentativi potrete 
comunque trovare la parola che desiderate. 
In questa presentazione, con i valori dati nella 
linea 200, i tasti funzione vengono definiti nelmo- 


Per disabilitare il programma e di conseguenza 
l'uso dei tasti funzione premere RUN STOP + RE- 
STORE e per abilitarlo di nuovo dare il comando 
immediato SYS7541, fe 


Figura 1 - Il programma Function-key. 


Seguito listato program- 
ma Function-key. 
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Parola di elaboratore 
(Oulipoit & Patafisica) 


di P. Badà, P. Brotzu, 
P. Ferrara, G. Foglia 


Parte seconda 


Manipolazioni 


L idea di attuare col calcolatore una manipo- 
lazione di testi letterari e non, è nata esami- 
nando un metodo di manipolazione inventato 
da Raymond Queneau, un metodo che prende il 
nome di “S + 7” e che consiste nel modificare | 
sostantivi contenuti in un testo con altri, che si 
trovano nel dizionario esattamente sette sostanti- 
vi più avanti di quello considerato. 
Era ovviamente l'artefice di questa lunga ricerca 
che doveva pensare ad inserire il nuovo vocabo- 
lo, dopo averlo opportunamente modificato se- 
condo le regole grammaticali (genere, numero 
ecc.) che il termine sostituito richiedeva. 
Noi abbiamo pensato di ampliare e modificare 
leggermente questo metodo. Infatti, nel nostro 
caso, i termini da sostituire sono sia sostantivi (S) 
che aggettivi (A), e la sostituzione non è più S + 7 
eA+7maS+neA+ndovenè un numero 
generato casualmente. 

Ecco come è stato organizzato il lavoro: 
i sostantivi e gli aggettivi dei testi inesame vengo- 
no raggruppati in sedici classi a seconda del 
genere, del numero e del tipo di articolo che 
necessita per quel vocabolo (vedi tabella). 
Prima di utilizzare il programma Manip occorre 
creare un vocabolario e modificare leggermente 
i testi, lavoro che viene affidato ad un program- 
ma di servizio di nome DATA ENTRY il quale ha i 
seguenti compiti: 
e pone davanti ad ogni sostantivo ed aggettivo 
un opportuno identificatore che lo classifica in 
una delle sedici classi sopra citate (vedi tabella), 
e trasforma le righe dei testi in colonne di parole, 
dove viene aggiunta la stringa “CR” dopo l'ulti- 
ma parola della riga, in modo da permettere la 
ricostruzione del testo originale. 
etrascrive il sostantivo o l'aggettivo in uno specia- 
le vocabolario diviso anch'esso in sedici classi 
con il criterio precedente. 
Ognuna di queste classi è costituita da un file 
(vedi figura 1) ad accesso casuale ed organizza- 
to in record con il quale si può accedere all'infor- 
mazione specificando appunto il numero di re- 
cord. (Nel nostro caso nel primo record è sempre 
specificato il numero totale dei termini contenuti 
in quel file). 

| sostantivi e gli aggettivi contenuti nel vocabo- 
lario vengono in questo caso scritti al contrario e 
così archiviati in ordine alfabetico, questo per 


consentire una divertente modifica di cui parlere- 
mo più avanti. MI 
Arriviamo finalmente al programma Manip il 
quale, come si può vedere dal listato, esegue le 
seguenti operazioni: La 
e Analizza il periodo scelto dall'utente e sceglie a 
caso un brano appartenente a quel felpa 
nostro caso vi sono tre brani coli gl , nove 
brani del 1800 e tre brani del 1900. | 
e Legge parola per parola il testo e, se davanti al 
vocabolo letto, incontra uno degli identificatori, 
questo stesso vocabolo ha il 70% delle possibilità 
di essere sostituito, e questo per mantenere alcu- 
ne sfumature del testo originale e per non rende- 
re troppo inverosimile il nuovo brano. 
e Infine se la parola letta rientra nella percentua- 
le dei termini sostituibili, prende a caso uno dei 
vocaboli contenuti nel file con lo stesso identifica- 
tore e lo sostituisce nel testo, ricomponendo que- 
st'ultimo nella forma originaria. die 
Ecco come poesie, brani, proverbi, oroscopi, pre- 
visioni del tempo ed annunci pubblicitari diven- 
tano a seconda dei casi testi umoristici, fantastici 
o, con le giuste interpretazioni, veri e propri saggi 
letterari. Ra 
La divertente modifica che si può api re al 
programma Manip consta nel cercare il vocabo- 
lo del testo all'interno del file con lo stesso identifi- 
catore (con una ricerca dicotomica per esem- 


pio) e sostituirvi uno dei due termini che lo prece- 
dono o che lo seguono, quindiSt10$+t26At+1 
o A + 2; questi termini hanno la ca di 


avere più o meno le ultime n lettere uguali o 
addirittura le ultime n sillabe uguali, e questo 
fatto da origine a sostituzioni di termini con altri 
che sono rimasti coi precedenti, ottenendo così, 
soprattutto nelle poesie in rima, quasi dei capola- 
vori. 


Scambi 


I suoni che costituiscono il sistema tipico diuna 
determinata lingua prendono il nome di “fone- 
mi”. | fonemi sono chiaramente distinti uno dal- 
l’altro e si contrappongono tra loro in modo tale 
che, se in una qualsiasi parola ne sostituiamo uno 
con un altro, possiamo far cambiare significato 
alla parola stessa oppure inventarne una nuova. 

L'idea che ha portato alla creazione dell'algo- 
ritmo che sta alla base del programma SCAMBI, è 
quella di utilizzare questa fragilità congenita del 
linguaggio naturale per trasformare un testo let- 
terario in una specie di pura armonia di suoni, per 
mezzo della sostituzione di un numero limitato di 
fonemi (ovvero delle lettere che rappresentano 
ciascun fonema) all'interno delle parole che co- 
stituiscono il compo del testo stesso. Questa opera- 
zione è sufficiente perchè l’opera letteraria perda 


completamente il contenuto originario, ma man- 
tenga inalterato lo scheletro metrico e della pun- 
teggiatura e inoltre, se è vero che la forma lettera- 
ria in cui un'opera è sviluppata è un elemento 
fondamentale del significato dell'opera stessa, è 
sufficiente affinchè mantenga anche la propria, 
diciamo così, “personalità”. L'ostacolo principale 
che si incontra in una operazione di questo tipo 
consiste nel fatto che, perapprezzarne i risultati, è 
necessario mantenere la leggibilità del testo: bi- 
sogna cioè evitare che il risultato di un casuale 
scambio di fonemi giunga ad insidiare il posto 
che, ne “Il Guinness dei Primati”, spetta di diritto 
ad uno scioglilingua cecoslovacco che suona 
più o meno così: ‘’Strch prst skrz krk" (letteralmen- 
te “caccia un dito in gola”). Tutto l'algoritmo se- 


guente gravita attorno a questa richiesta più che' 


legittima. 

Come prima cosa si sono definite delle classi di 
fonemi per le quali la sostituzione di un loro ele- 
mento con un qualsiasi altro appartenente allo 
stesso insieme, non comprometta in alcun modo 
la leggibilità del testo risultante: i fonemi della 
lingua italiana, infatti, sono più numerosi delle 
lettere dell'alfabeto così, mentre molti suoni han- 
no propri segni (lettere) che li rappresentano, per 
alcuni dobbiamo servirci di una loro combinazio- 
ne di lettere (“sc”, “gl”, “ch”, “qu”, ecc...) che 
prese singolarmente rappresentano suoni ben di- 
versi, e questo fatto rappresenta una complica- 
zione non indifferente. Per ovviare a questi incon- 
venienti si sono introdotte quattro classi di fonemi 
i cui elementi possono essere tranquillamente in- 
tercambiati: 
ela classe delle vocali; 

e la classe delle consonanti labio-dentali (‘“b”, 
MST A. 

e la classe delle consonanti della parola (“m”, 
“n): 


e la classe delle consonanti palatali o gutturali 
(“c”, "g”). 

Di una quinta classe fanno parte le lettere assolu- 
tamente non sostituibili, e precisamente: “h", ‘“Y”, 
è ce Cite Ci SUR Za ORE: 

Esistono in realtà due eccezioni alle regole prece- 
denti che si rivelano molto utili per garantire al 
risultato una maggiore musicalità: 

ela lettera ‘vv’ può essere sostituita da un qualsia- 
si altro elemento dell'insieme delle labio-dentali, 


ma non può sostituime alcuno; 

e la lettera “u” può sostituire una qualsiasi altra 
vocale senza però essere mai sostituita essa stes- 
sa. 


Il programma 


In fase di inizializzazione viene costruita una 
stringa (X$) costituita da tutte e ventisei le lettere 
dell'alfabeto inglese, nel loro ordine naturale. In 
seguito ognuna delle lettere x$ che appartiene 
ad una delle classi di sostituzione può essere sosti- 
tuita (con una probabilità che, a seconda della 
lettera, va dal 50% fino al 64%) secondo le regole 
discusse precedentemente. Si ottiene in questo 
modo una nuova stringa che fa corrispondere ad 
ogni lettera dell'alfabeto quella che ha il compi- 
to di sostituirla nel testo. 

Questa parte di programma, come si può ben 

immaginare, fa uso intensivo della funzione MIDS 
del linguaggio BASIC, che permette la sostituzio- 
ne di una sottostringa all’interno di una qualsiasi 
stringa. 
A questo punto i giochi sono fatti: ad ogni lettera 
del testo originale basta infatti sostituire quella 
corrispondente della stringa X$, e ciò viene effet- 
tuato scandendo carattere per carattere il testo 
e scartando tutti i caratteri non alfabetici. Una 
coppia di caratteri “CR” verrà interpretata ap- 
punto come il terminatore di una riga del testo. 
In realtà sono necessari ancora alcuni accorgi- 
menti per fare sì di rispettare l'ordine delle maiu- 
scole e minuscole dell'originale: le lettere che 
compongono la stringa X$ sono tutte maiuscole 
ma, se la lettera del testo è una minuscola, il 
programma somma 32 al loro codice ASCII siste- 
mando ogni cosa. 


Figura ]- La tabella del- 
le corrispondenze utili 
alla parte Manipolazio- 
ni. 


Figura 2- I commenti al 
listato di Manipolazioni. 
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Listato 1 - Programma 
Manipolazioni. 
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Naturalmente anche in SCAMBI è presente tut- 
to l'apparato estetico funzionale necessario per il 
suo inserimento nel pacchetto Oulipoit. Il dialogo 
col pubblico (che può scegliere a quale periodo 
letterario deve appartenere il testo da manipola- 
re) è supportato da alcuni comandi particolari 
del computer M20: 

e il richiamo (tramite istruzione CALL o istruzione 
EXEC) della routine del PCOS LA (label) che per- 
mette di scrivere una stringa del formato prescel- 
to in un qualunque punto del video; 

e le istruzioni WINDOW e LINE che permettono, 
rispettivamente di aprire “finestre” sullo schermo 
e di disegnare linee continue o rettangoli. 
Naturalmente tutti questi accorgimenti possono 
essere sostituiti da normali istruzioni di PRINT o da 
altre particolari istruzioni specifiche di ogni perso- 
nal. Un'altra particolarità è costituita dal fatto 


10 REN MANIP 


che l'input di ogni messaggio dell'utente avviene 
tramite una routine che permette l'interruzione in 
un punto qualsiasi della digitazione di un mes- 
saggio senza che il programma si blocchi per la 
mancanza di RETURN, ma anzi facendo in modo 
che, in tal caso, esso riceva il controllo al pro- 
gramma pilota. 

Un'ultima annotazione: il programma SCAMBI 
prevede la manipolazione di testi preventiva- 
mente trattati in modo da poter essere utilizzati 
dagli altri programmi di Oulipoit, tuttavia, aven- 
do l'accortezza di inserire la stringa CR tra una 
riga e l'altra, ogni testo memorizzato su file se- 
quenziale che può essere sconvolto a piacere. 


(Fine) 
(La precedente puntata è apparsa sul numero 47) 


20 COMMON NOMES, ANTX, METZ, GITZ 


30 CLS 
40 M=WINDOW (1,175) 


SO RANDOMIZE(CYI(RIGHT$(TINE$,2))) 


60 LT=15 


70 DIK TESTO$(LT); TIT$(16) . IDF$(16) 

80 DATA "1:fratesole2","i:tantodentil2"......, 

90 DATA "1:azacinto2","1:fratgiovane* 

100 DATA *1:SIL*,"1:5L0",*1:SL","1:5I","1:5GLI","1:SLA" 
110 DATA "1:SLF","1:SLE","1:AIL","1:ALO","1:AL","1:AI" 
120 DATA "1:AGLI","1:ALA","1:ALF","1:ALE" 

130 DATA "1","2","3","4","5%,"6","7","8" 

140 DATA "$","%","£","&","6","+", "x", "é" 

150 FOR I=i TO LT : READ TESTO$(I) : NEXT I 

160 FOR I=1 TO 16 : READ TIT$(I) : NEXT I 

170 FOR I=i TO 16 : READ IDF$(I) : NEXTI 

180 PRINT:PRINT:PRINT"Dimmi come ti chiami ed io" 

190 PRINT "ti dedichero' questo sio parto --)”; 


200 WINDOW %3 


210 EXEC"la'Se sbagli puoi correggere con il tasto 


R0SS0',5,12,1,0" 


220 LINE (0,0)-(512,256),,B 


230 EXEC*la'Ricordati dopo la risposta di premere 
il tasto VERDE',5,2,1,0" 


260 WINDOW %1 
250 GOSUB 910 


260 IF T=9000 THEN NOME$="":GOTO 640 ELSE NOME$=BUF$ 
270 IF LENCNOME$)=0 THEN NOME$="UNO SCONOSCIUTO" 


280 €L5 
290 PRINT 


J00 PRINT "Quale e' il periodo della letteratura italiana" 


310 PRINT "che preferisci?” 


320 PRINT : PRINT "1 - DUECENTO-TRECENTO -" 
330 PRINT : PRINT "2 - OTTOCENTO -* 
360 PRINT : PRINT "3 - NOVECENTO -" 


350 S=WINDOW(1,155) 


Seguito listato program- 


360 HINDOW 23 :CL5: LINE(0,0)-(512,256),,B ma Manipolazioni. 


370 EXEC*la'Premi il numero corrispondente alla scelta. 
Puoi correagere con il tasto R0S50',5,13,1,0" 
380 EXEC "LA ‘Ricordati dopo cani risposta di premere 
il tasto VERDE',5,3,1,0" 

390 WINDOW 24 

400 CL5:FRINT * quale e‘ la tua scelta --)?"; 
410 GOSUB 910 

420 IF T=9000 THEN GOTO 640 ELSE AR$=BUF$ 

430 CL5 

440 IF AAS="0" THEN GOTO 640 

450 IF LENCAAS))1 THEN PRINT CHR$(7):G0T0 400 

460 IF AR${"1" OR AR$)"3" THEN PRINT CHR$(7); : GOTO 400 

470 CLOSE WINDOW 24 

480 CL5:CL5 Z3:CLOSE WINDOW %3 
490 EXEC"la'Un attimo che stampo l'intestazione...’,10,80,2,0" 
500 EXEC"la'Sul foglio che dopo ti porterai via',10,60,1,0" 
510 EXEC "sp 2" 
S0 CLS 

530 ON VALIARS) GOSUB 880,890,900 


si Gi ti ono 


SISTEMI PER L'’INFORMATICA 


ROMA - Via Fonti del Clitunno, 11 - Tel. 06/7945423 
PESCARA - Via F. De Blasiis, 9 - Tel. 085/692576 


PERSONAL - RETI DI PERSONAL - MINICOMPUTER da 16 e 32 BITS. 
PERIFERICHE SPECIALI: PLOTTER - TAVOLETTE GRAFICHE - VIDEO GIGANTI 
STRUMENTAZIONE: CONTROLLORI PROGRAMMABILI - COMPUTER 
PER LA GESTIONE DI SISTEMI E COLLEGAMENTO 
STRUMENTI DI MISURA DA LABORATORI. 


PROGRAMMI PER LA GESTIONE DELLA SCUOLA: 
STIPENDI - PAGELLE - CONTABILITÀ FINANZIARIA - GRADUATORIE - ECC. 


PROGRAMMI PER LA DIDATTICA: 


RAGIONERIA - MATEMATICA - CHIMICA - ELETTRONICA - ELETTROTECNICA 
PROGETTI SPECIALI 


CORSI: PROGRAMMAZIONE STRUTTURATA; BASIC; COBOL; ASSEMBLER. 
MICROELETTRONICA E MICROPROCESSORI. CONTROLLO 
DI PROCESSI INDUSTRIALI 


PROGRAMMI PER LA GESTIONE AZIENDALE: CONTABILITÀ E MAGAZZINO 


Seguito listato program- 
ma Manîpolazioni. 


540 PRINT : LPRINT 
550 CASO=FIX((SUP+1-INF)*RND+INF) 
560 OPEN "I",£1,TESTO$(CASO) 
570 WHILE NOT EOF(1) 
580 LINE INPUT£ 1, A$ 
590 Y$=LEFT$(A$,1) 
600 IF (Y$)="1" AND Y$(="B") OR (Y$="$") OR (Y$="Z") OR (Y$="£") OR 
(Y$="£") OR (Y$="8") OR (Y$="+") OR (Y$="*") OR (Y$="6") THEN GOSUB 6450 
610 IF A$="CR" THEN LPRINT : PRINT ELSE LPRINT A$; : PRINT A$; 
620 WEND 
630 CHAIN "pilota:dedica" 
640 CHAIN "pilota:init.bas" 
650 REN 
460 IF RND#*100)70 THEN A$=RIGHTS$(A$,LEN(A$)-1) : GOTO 870 
670 CON=0:TROV=0 
680 WHILE NOT(TROV) 
690 CON=CONII 
200 TROV=IDF$(CON)=Y$ 
710 WEND 
720 OPEN "R".£2,TIT$(CON), 23 
7130 FIELDE 2,2 AS LUN$,Z1 AS PARS 
7460 GET£ 2.1 
750 CASO=(RND*1000) MOD (CUI (LUN$)-1)+2 
760 GETE 2,050 
770 A$=LEFT$(PAR$, CUI (LUNS) ) 
780 GOSUB 810 
790 CLOSE £2 
800 RETURN 
810 REN QUESTA RUOTINE ROVESCIA LA STRINGA A$ 
820 RA$="" 
830 FOR I=CVI(LUN$) TO 1 STEP -1 
8460 RA$=RAS+NID$(A$,1,1) 
850 NEXT I 
850 A$=RA$ 
870 RETURN 
875 REN QUESTA ROUTINE STABILISCE I LIMITI DELLA SELEZIONE CASUALE 
880 INF=1:SUP=3 : RETURN 
890 INF=4:SUP=12 : RETURN 
900 INF=13:SUP=15 :RETURN 
910 BUF$="* 
920 A$="":T=0 
930 WHILE T(9000 AND A$="" 
940 T=TH1 
950 A$=INKEYS 
960 WEND 
970 IF T=9000 THEN GOTO 1020 
980 IF (LEN(BUF$))0) AND (ASC(A$)=8) THEN BUF$=LEFT$ (BUF$ 
»LEN(BUF$)-1) PRINT CHR$(8):" ".CHR$(8).:GOTO 920 
990 IF (ASC(A$)=13) THEN GOTO 1020 
1000 IF ASCIA$) ()8 THEN BUF$=BUF$+A$ :PRINT A$; 
1010 GOTO 920 
1020 RETURN 


Listato 2 - Programma 
Scambi. 


10 REM SCANBI 

20 COMMON NOME 

30 COMMON ANTZ,METX,GITZ 

40 CLS 

50 PRINT 

60 LT=15 

70 DIM TIT$ LT) 

80 A=VAL(MID$(TIME$,4,2)) 

90 D=VAL(MID$(TINE$,7,2)) 

100 C=D4A 

110 RANDOMIZE(C) 

120 X$="" 

130 FOR B=1 TO 26 

160 X$=X$+CHR$(64+B) 

150 NEXT B 

160 AS="AIE0U" 

170 B$="BDFPTD" 

180 C$=*C6" 

190 M$="MN" 

200 IF RND).2 THEN MID${X$,1,1)=MID$(A$,FIX(5#RND+1),1) 

210 IF RND),2 THEN MID$(X$,2,1)=NID$(B$,FIX(6*RND+1),1) 

220 MID${X$,3,1)=MID$(C$,FIX(2&RND+1),1) 

230 IF RND),2 THEN MID$(X$,4,1)=MID$(B$,FIX(6*RND+1),1) 

240 IF RND).2 THEN MID$(X$,5,1)=MID$(A$,FIX(5*RND+1),1) 

250 IF RND),2 THEN MID$(X$,6,1)=MID$(B$,FIX(6#RND+1),1) 

260 MID$(X$,7,1)=MID$(C$,FIX(2*RND+1),1) 

270 IF RND).2 THEN MID$(X$,9,1)=NID$(A$,FIX(5*RND+1),1) 

280 MID$(X$,13,1)=MID$ (N$,FIX(2#RND+1),1) 

290 MID$(X$,14,1)=MID$(N$,FIX(2#RND+1),1) 

300 IF RND),2 THEN MID$(X$,15,1)=MID$(A$,FIX(5*RND+1),1) 

310 IF RNO).2 THEN MID$(X$,16,1)=MID$(B$,FIX(6*RND+1),1) 

I20 HID$(X$,20,1)=MID$ (B$,FIX(6xRND+1),1) 

330 IF RND).2 THEN MID$(X$,22,1)=MID$(B$,FIX(6#RND+1),1) 

360 DATA "1:divinacona12","i:tantogentil2".,. 

350 FOR I=1 TO LT : READ TIT$(I) : NEXTI 

360 PRINT 

370 PRINT "Quale e‘ il periodo della letteratura italiana" 

380 PRINT "che preferisci?” 

390 PRINT 

400 FRINT "1 - DUECENTO E TRECENTO - * 

410 PRINT "2 - OTTOCENTO - * 

420 PRINT "3 - NOVECENTO - * 

430 MM=WINDOW(1,175) : SS=WINDOW(1,155) 

450 WINDOW 23 

450 LINE (0,0)-(512,256),,B 

460 EXEC"LA'Premi il numero corrispondente alla scelta: 
se sbagli correggi con il tasto R0SS0',5,12,1,0" 

470 CALL "LA"("Ricordati dopo cani risposta di premere 
il tasto VERDE",5,2,1,0) 

480 WINDOW 74 

490 CLS : PRINT * qual'e‘ la tua scelta --)?*: 

500 GOSUB 960 

510 IF T=9000 THEN GOTO 910 :NOME$="" ELSE AR$=BUF$ 

520 CLS 

530 IF RA$="0" THEN NOME$="" : GOTO 910 
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Seguito listato program- 
ma Scambi. 


(O) 
I 
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560 IF LENCAR$)}1 THEN PRINT CHR$(7):GOTO 490 

550 IF AA$("1" OR AA$)"3" THEN PRINT CHR$(7)::GOTO 490 

560 CLOSE WINDOW %4 

570 WINDOW Zi : CLS 

SB0 PRINT:PRINT:PRINT"Dimmi come ti chiami ed io" 

590 PRINT "ti dedichero' questo sio parto --}"; 

400 GOSUB 960 

410 IF T=9000 THEN NONE$="":GOTO 910 ELSE NOME$=BUF$ 

420 IF LENCNOME$)=0 THEN NOMES$="UNO SCONOSCIUTO" 

630 CL5:CLS XI 

640 EXEC"1a'Un attimo che stampo l'intestazione. ..’,10,80,2,0" 

650 EXEC"la'Sul foalio che dopo ti porterai via',10,60,1,0" 

460 ON VALCAR$) GOSUB 920,930,960 

670 CASO=FIX((SUP+1-INF)*RND+INF) 

480 CALL "sp 2" 

690 CLS 

700 PRINT : LPRINT 

710 OPEN "I",£1,TIT$(CAS0) 

720 WHILE NOT EOF(1) 

230 LINE INPUT £1,Y$ 

760 AAS=LEFT$(Y$,1) 

750 IF (AR$)"O" AND AAS("9") OR (AR$="$") OR (AA$="%") OR (AA$="£") OR (AR$="8") OR (AA$="£*) 
OR (AR$="+") OR (AR$="#") OR (AA$="6") THEN Y$=RIGHT$(Y$,LEN(Y$)-1) 

760 IF RIGHT$(Y$,2)="CR" THEN LPRINT:PRINT:GO0T0 870 

770 FOR B=1 TO LEN(Y$) 

780 CC=ASC(MID$(Y$,B,1)) 

790 IF CCCK8S THEN GOTO 850 

800 IF CC(91 THEN NID$(Y$,B,1)=MID$(X$,CC-64,1):GOTO 850 

810 IF CC(97 THEN GOTO 950 

820 IF CC}122 THEN GOTO 850 

830 MM$=MID$(X$,CC-96,1) 

840 MID$(Y$,B,1)=CHR$(32+ASC(MM$)) 

950 NEXT B 

860 LPRINT Y$::PRINT Y$. 

870 WEND 

880 CLOSE £1 

890 FOR I=1 TO 3: PRINT:LPRINT: NEXT I 

900 CHAIN "pilota:dedica” 

910 CHAIN "pilota:init.bas" 

920 INF=1 : SUP=3 : RETURN 

330 INF=4 : SUP=12 : RETURN 

940 INF=13 : SUP=15 : RETURN 

950 REN ROUTINE DI INPUT TENPORIZZATO 

960 BUF$="" 

370 A$="":1=0 

980 WHILE T(9000 AND A$="" 

990 T=T+#1 

1000 A$=INKEY$ 

1010 WEND 

1020 IF T=9000 THEN GOTO 1070 

1030 IF (LEN(BUF$))0) AND (ASCCA$)=B) THEN BUF$=LEFT$(BUF$,LEN(BUF$)-1): 
PRINT CHR$(8):" ":CHR$(8)::GOTO 970 

1060 IF (ASC(A$)=13) THEN GOTO 1070 

1050 IF ASC(AS) ()8 THEN BUF$=BUF$+A$ :PRINT A$. 

1060 GOTO 970 

1070 RETURN 


Cromemco 


Tomorrow’ computers today 


Al primo posto nella tecnologia della modularità per dare forma 
nel tempo alle Vostre soluzioni. 


C-10 PERSONAL COMPUTER: al prezzo di un 
videoterminale una completa intelligent work 
station corredata di tutto il software necessario 
all'utente professionale. Structured Basic, il più 
potente basic oggi disponibile su microcomputer, 
Writemaster, word processor di facilissimo uso, 
Planmaster e Statmaster*, packages che risolvono 
i più complessi problemi di analisi finanziaria e 
statistica, forniti insieme al nostro CDOS, sistema 
operativo totalmente CP/M compatibile. 

C-10 può divenire terminale delle nostre unità 
centrali o di altri computers grazie a Telemaster*, 
sofisticato software di comunicazione. 


* Opzionale - UNIX è un marchio depositato Bell - 


280 Bernardo Ave.,, 


Cromemco » 
Inc Mountain View, CA 94943 (USA) 


Distribuito in Italia attraverso il: 


UNITA CENTRALI ad architettura modulare, bus 
standard IEEE-969 S-100, basate sulla tecnologia 
DUAL PROCESSOR. MC68000 Motorola 16/32 bit 
e Z80A che operano insieme sotto il controllo del 
sistema operativo D-CROMIX, uno UNIX-like 
dotato di emulatore CP/M, che per primi abbiamo 
adottato su micro già dal 1981. Oltre 30 diverse 
schede a catalogo per realizzare il più sofisticato 
sistema del mercato. 

Configurazioni da 1 a 16 terminali, fino a 4MB di 
memoria centrale, dischi fissi da 20 a 600 MB, 
Network, CAD con grafica colori ad alta risoluzione. 


Completa libreria di software di base ed applicativo. 


CPIM è un marchio depositato Digital Research 


Co.N.I.A. - Consorzio Nazionale per l'Informatica e l'Automazione 
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* Sedi operative nelle maggiori città italiane 


VU STUDIO & G. BENETTI 


ZX SPECTRUM======: 


Simulavolo 


Questo programma permette la simulazione delle condizioni di volo 
strumentale di un aereo, ed è complesso a tal punto da occupare tutti 
gli 8,8 Kbyte realmente disponibili nello Spectrum da 16 Kbyte. 


Figura 1 - Il listato del 
programma principale 


flight. 


di G. Tovo 


È un programma che rappresenta anche uno 
valido esempio dicome sia possibile sfruttare 
in modo ottimale sia le capacità di calcolo che 
quelle grafiche della macchina Spectrum, un 
gioiellino che continua a confermarsi tale. 


Come si carica 1 


Operativamente è necessario, innanzitutto, in- 
serire in memoria il programma principale, il cui 
listato è mostrato in figura 1. Lo si salva tramite il 
comando: SAVE ‘flight LINE 1, che attiva il modo 
“Auto Run”. 4 
Dopo avere verificato la registrazione (preferibil- 
mente ripetetela anche su una cassetta di back- n 
up) tramite l'usuale VERIFY flight”, si deve memo- 
rizzare la parte scritta in codice macchina, come 
da figura 2, dopo aver impostato un NEW. A 
Per facilitare l'inserimento dei numerosi codici, 
236, si potrà utilizzare la routine BASIC indicata in 
figura 3, che inoltre presenta il vantaggio di poter 
controllare immediatamente il contenuto effetti- 
vo della memoria RAM. 

Completato tale inserimento anche il program- 
ma in codice macchina deve essere salvato su 
nastro immediatamente dopo il programma 
principale. Per tale operazione si usi il comando: 
SAVE “flightc” CODE 23296,236. È 

Ancora è bene verificare subito, tramite il solito 
VERIFY, la registrazione e ripeterla sul secondo 
nastro di scorta. 

A tale punto si può inserire in memoria, dopo un 
NEW, la routine per il disegno dell'abitacolo del- 
l'aereo, riportata nel listato di figura 4. Appena 
dopo tale operazione è necessario dare una istru- — 
zione RUN che faccia partire tale programma. 
Alla richiesta del calcolatore si faccia partire il 
registratore e si prema immediatamente untasto 
qualunque. In tal modo anche il disegno verrà 
caricato su nastro dopo le precedenti routine e 
nel frattempo il disegno dell'abitacolo verrà co- 


DI 


50 - 1984 « it 


{NOT 
17,9; 
23076 ,7: 


È =o T 
13+9,21; PAPE 23” 
EXT qQ 
80 PRINT PAPER 


“jAT_18,22; 
AT 18 8; "ed 


Mm 


o 


DZU A 
eV yi 


+t 

=q 
THEN L 
H_o;pi 
FOR 


- 
ADI_NUPSWW 
P9 V+N98959- 


Cc» 
®<FC PI HDND->-Y\AHNC A 


o ro. MD 


Honed 
D 
r 
hi 
+ QUIMUDIVUD #& -ù » BIO 


4 


DD-JR+ NUDA TAI _ MONTANTI MOV 


degl; 


(A) 
On pODe 
Zzò z-- (11) 
pe 
Joe 
" DY 
baud 
I 


r 
+ 
pr 

Nes 
3 

I 


RR 3 


Wie 
ANfflazannanan DD 
bin Ae TOCCO — 
Won [Wade Aaetedi | 
uc 
-h 
reed: Qua 
«I Pe 
TAN n 
ano 


na DS 
ULCZAnbHenaiae TU Malu 


IRN9-49900009 _#NO 


D 
4 


ZAHO ceUEeasWONAD-- DEA 


Lie WU 


749 PRINT AT Pp,13;, "8" 


7509 RETURN 
: PRINT AT_P,45; "HG 
Pe ": LET ss$id+t) 
: last: LET g&i=e 
LET s (6) =1160: LET £ (218) =34 


788 LET n=p#p: LET s=-n: LET e» 
2283: LET w=13e3: LET a=509: LET 
alsal/P-RND*a 

798 LET c=i(hd*deg-252+180% (b=4) 


z=0: LET x=2@4: LET k=3 
: LET m=jsp: FOR co=c 
: AT 13+9,21;” 

: NEXT q: IF NOT gr THEN POKE 
23076, 184 
810 LÉT f=kn/35+à: LET ese-f: L 

w=é-f: LET sas-c/p: LET n=s.+2 

a ia t29+d THEN L alzal+d#a 


Ei. bo TO e 
820 LET a O: PRINT AT p,13;"s" 
»CLET- SI‘ na Sir LET- CSIe.11) =" 


830 IF_kn<p*p THEN LET_kn=o 

849 LET remxn/4-C+X: LET l=maàs- 
w-C+X: LET wemèn/e-C+x: LET immà 
5/@-C+x: LET Um-mral/w-yzat+k: L 
ET ti=-mxal/e-yrzattk 

85@ IF RBS (r-x)>j THEN LET r=5 


ca 
ta 
)» 
<P 


@ 


7] 


VI=28 AND w<m THEN LET 
= 

DOMIZE USR 23296: PLOT 1 
» RAY d,-d: DRAY 84,0: DRAW 


d 

949 PLOT r,u: DRAW l-r,o0: 

L,U: DRAW i-l,ti-u: PLOT i,ti: D 
=i,0: PLOT v,t1: DRAW F-v,u 


vu 

mod 
dem 
D 

DD 


IF eì:2€3 THEN GO TO 870 
IF NOT A ‘4 THEN PRIN 
16,21;" " 
IE NOT à\l THEN LET rcsal: GE 
LET rc=y+*zatakn-12@: LET el=- 
Pprefleaknr4e3-gsr*kn/5ee-rc-p: LET 
kn=kn+e1*2237kn 
ssa IF ai>d+di THEN LET saiz=zaiap: 


SUB 650: LET al=al-p: 


GO_ SUB ssa 

LET ss$iy) =" “: LET as8(pet 
RANDOMIZE USR 23391 

I =t_ THEN GO SUB 1170 

IF th THEN GO SUB 345+-tha(d 


IF al<cp+p_THEN GO TO 1080 
IF_kn<(1.5e3-fl*p) THEN GO 


: to 
3054,7: LET st=o 
IF PEEK 23560 <865S THEN co TO 


ET si=PEEK 23562-54: IF si 
Si<27 Lato GO SUB sisi) 
o 


IF e<a 


099 


O-100pOr90 990 996 


ON F9_UPOYTPAMA-AGN :H-9H-O 
I 


p 


810 
>P OR kn THEN LET beat: 


=d: GO TO ex 
=-9: POKE 23105,7+177»* 


>pP THEN RETURN 
>P*P THEN LET kn=skn-p»* 


90 
CrOHO»=HMKHDOFr 


-| 


PUbbappo ppi pPOppyrpa papiri pm 
La 


Po PPAPPOPPHAHOPP09HF909CI9*909 19990 


0_GUIDIOsI 
9009-99 


pe) 
nm 
9 
[sj 


LET al=shd-r: F 
DRAY QVER t;t, 
-12*SIN al: LET 
: PLOT x3,4Y1: DR 


b): LET Ww=w+btb): 
b=b+t: IF b=d+d THEN LET b= 


PRINT AT 6,11;m$(b): RETURN 
IF_c OR al<S@ THEN RETURN 
LET st=st+t: POKE 23054,184 
st<p+P THEN RETURN 

b=d+t: GO TO ex 

"FUORI DER soa PEOON 
R 

a. CARRELLO?" ," ER 
IPIDAMENTE", “CARBURANTE ESA 


IF_m THEN RETURN 
PLOT QUER t;180,ah: DRAU OG 


ji ay 
è’ LET ah=28+i-at-r(/2: LET ay 
RANDONIZE USR 23483 
IF_ah<9 THEN LET ah=9 
PLOT 180,ah: DRARU 46,auy: 
GO SUB 1420: 
: GET flip: LET cati 
LET isd: LET grat: 
ri=at 
PRINT RAT 217?,p-t; INUVERSE t; 
pr=o: PRINT INVERSE t;f 
vsz0: LET wd=0: LET b=st 
s (18) 
hd=258+rad: LET sf=le-1 


TO _ 90 
e>}9e3 THEN LET b=d+4:; GO 


n<P+P THEN LET b=?: GO T 
n>:18@ THEN LET b=d+d: GO 
NOT 9r THEN LET b=9: GO 
at<-3 THEN LET b=p: GO T 
LET z=t: LET a=120: GO TO ® 
LET g=12490: LET mi1=y: PRIN 
21,d; FLASH t;"F": RETURN 
LET b=pst: GO TO ex 
=10: DIM $ (12): LET e 
onl: LET rt 


fl=o: LET th 
a T xS3=0: 


e i ica 


UR 
2 
R 
3 
Lal 
3 
3 
3 
13) 
3 
s 
# 
sj 
G 
3 


@ 
L 
1 
2 
s 
R 
4 
= 
Pp 
L 
Ss 
I 
s 
1 
7 
G 
2 
9 
(tal 
o 
1 
e 


dipupes bAiPpPPhUPT 


n 


Q_W 


AH 
xX9 99 909A8C9 


QP_Pppeor=» 


# 
- 
Mm 
9 

n 
H 
n 


E 

fu@: LET 
a * LET g=1242 
3658,d+d: LE 


i de heggi 
mi=d: LET 39 
: LET rad=s1/d 
® LET age""”: POKE 
b=INT_ (RND+6) +e 
1580 LET t=e: LET sf=.05: LET eh 
TN_?J?I?2???b? ?xEXP O ERASE FS7?7x 
5OR OG ERASE F8?xTAN 2?EXP @SIN 


Seguito listato program- 
ma principale flight. 
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Figura 2 - Il listato dei 
byte da 23296 a 23532, 
flighiC. 


Figura 3 - Il listato in 
BASIC del programmi- 
no che semplifica l’inse- 
rimento dei codici mac- 
china di flight C. 


Figura 4 - Il listato della 
routine di disegno dell'a- 
bitacolo, flightS. 
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INPUT"Inserire il byte", 
+ n,.,i : PRINT PEEK 


ideo #»* 
e: INK 9S: € 


AY 70,25: DRA 
5: fU d,23: 


: DRAW 
RAU 8,-1 


; PAPER 4; È 
509,69,16: CIRCLE 19, 
LE 59,82,16: CIRCLE 
LE 182,122,16 
8,6,14,68,12,1 
12,48,4i4,15 
A n=i TO 198 


è 
FÒ : 
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XT n 
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d' 21, "ROLL", 10,21, "INCL" ,7, 
ia ch*,6,11, "CRTRL",47,14, "ALT" 
106 FOR n=1 TO 16: READ as,a_b: 
PRINT AT a,b;jas: LET X=LEN as$#8 


della i +38 
18,1; 12,1, 0UEL":7, 


struito su video. 

In futuro esso sarà caricato direttamente dal pro- 
gramma principale, così come "flightc". Comun- 
que, per sicurezza, vale la pena salvare a parte 
anche quest'ultima routine. 


Come si prende il volo 


Il programma, lo ammettiamo, è abbastanza 
complesso. Innanzitutto è necessario mettersi 
nella filosofia di dover pilotare un aereo, con tutti i 
problemi che tale operazione comporta, senza 
nessuna soddisfazione morale dovuta a frasi del 
tipo “Bravo! Hai guadagnato 70000 punti-pilota”, 
come ci si aspetterebbe da un banale videogio- 
[o(o) 

Assicuriamo, comunque, un reale divertimento e 
la nascita di nuove passioni per l'affascinante 
mestiere dell'aria. 

Data la fatidica frase LOAD “flight”, il programma 
e tutte le routine ad esso collegate vengono cari- 
cate. È una operazione abbastanza lunga, che 
dura qualche minuto, e che termina con la com- 
parsa graduale del cruscotto dell'abitacolo e 
della domanda “DECOLLO ? (s/n)" 

Dopo ciò è possibile fermare il registratore. 

A questo punto è bene capire quali strumenti si 
hanno di fronte e quali comandi a disposizione. 
Si faccia quindi sempre riferimento alle tabelle 
riportate in questo stesso articolo perimpadronirsi 


PRINT 235295 + n, *: 
POKE 235295 
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(22-a) #8+1: D 
è: DRAW -x,0: 
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EXT_n 
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DRAY_57,2: DRA 
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PRINT AT 68,22; 


15© PLOT 78,123: DRAU 3,2: DRAW 
3-42: DRAW -14,-17,-1.8: 
206 130: DRAW -18,-29,-1.95: DRA 
N 24,2: DRAU 0,-8: DRAI -6,0: D 
RAW d/-44 

160 SAVE "flights "SCREEN$ : STO 


190 DRAW _ 29,9: DRAY Q,-28: DRALI 
-29,@: DRAW @A,28: RETURN 
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subito dei differenti significati di ciascuna sigla, o 
comando. 

È da notare che il metodo utilizzato per decodifi- 
care i comandi che si danno con appositi tasti, fa 
si che sia letta dal computer una sola, singola e 
breve pressione del tasto stesso. Alcuni di essi, 
inoltre, funzionano come interruttori ON/OFF. 

La pochissima memoria rimasta libera preclu- 
de ogni tentativo di rendere il programma del 
tutto a prova d'errore (ogni miglioramento o cor- 
rezione è bene accetto: scrivetecelo) e di sonoriz- 
zarlo in modo soddisfacente, sebbene la mag- 
gior parte delle possibilità anche più sciocche 
siano state prese in considerazione. Ad esempio, 
a terra è impossibile sollevare il carrello e in aria 
usare i freni! 

Comunque si nota subito che tutti gli strumenti, 


per ora, sono muti. Rispondete allora alla prece- 
dente domanda con una "s”, premendo poi Re- 
tum. Il cruscotto si anima. Prendiamo in esame 
ogni singolo strumento, iniziando da quelli imme- 
diatamente intuibili. 
In alto a sinistra la velocità VEL, che è espressa in 
nodi. Appena sotto, la potenza data ai motori, 
PWR (power). Appena dopo aver risposto S alla 
domanda del computer i valori risultano 
VEL=0.01 nodi e PWR=110. 
Quindi siamo praticamente fermi e a basso regi- 
me. La segnalazione dell'apertura del carrello 
(CARR) indica “GIU”: abbiamo quindi i carrelli 
abbassati, come si conviene. 
Lo strumento HDG indica 250. HDG significa Hea- 
ding: ovvero l'angolazione della rotta in gradi, 
rispetto al polo nord preso a riferimento (0°). Nella 
pratica è proprio la direzione del “muso” dell'ae- 
reo rispetto al nord, detto per i profani... 
Segnando 250? significa che la pista di decollo 
e inclinata, rispetto al nord, proprio lungo la retta 
dei 250°. 
Prima di decollare leggete la tabellina di figura 5 
che riporta le funzioni dei diversi tasti. 


FRENI on/off 


CAMBIA RADIOFARO 

GIU’ /SU 

DESTRA/SINISTRA 

+/- FLAP 

INCR. POTENZA, STOP DECR. 
DECR. POTENZA, STOP INCR. 
MARRA on/off 

CARRELLO 


Premete una volta P per dare potenza: l'aereo 
comincia a muoversi e il tachimetro (VEL) indica 
un progressivo aumento di velocità. 
Raggiunti i 100 nodi bisogna agire velocemente, 
incrementando l'angolo di apertura dei fiap pre- 
mendo ripetutamente il tasto K (osservare l'indi- 
catore FLAP) e sollevando la cloche premendo 
ripetutamente il tasto Q. L'indicatore a destra 
dello schermo INCL indica l'inclinazione dell'ae- 
reo e dovete fargli raggiungere un valore di 110 
12, per decollare (occhio alla velocità e alla po- 
tenza, potrebbe essere necessario premere an- 
cora P). 
Quando vi staccate da terra si anima l'indicatore 
centrale di altitudine (ALT), riportando separata- 
mente migliaia (in alto) e centinaia (in basso) di 
piedi. 
Anche RdS indica qualcosa: è il rapporto di salita 
(se l'indicazione è $) oppure il rapporto di discesa 
(se l'indicazione è D). Ovviamente decollando 
dovreste sempre avere un Rd$ positivo. cioè l'indi- 
cazione di quanti piedi al minuto vi sollevate. 
Una volta decollati far rientrare il carrello, pre- 
mendo C, e tenere questo assetto fino ad una 


Figura 5 - La corrispon- 
denza tra tasti e funzioni 
operative dell’aereo. 
Notare che alcuni tasti 
fungono da interruttori 
on/off. mentre altri, per 
ripetute pressioni, incre- 
mentano il valore della 
variabile ad essi associa- 
ta. In particolare, suc- 
cessive pressioni dei ta- 
sti di incremento e de- 
cremento della potenza 
variano la potenza dei 
motori, mentre una sola, 
singola pressione, bloc- 
ca la variazione opposta. 


Figura 6 - Uno schemino 
esemplificativo per capi- 
re a quali angoli ci si ri- 
ferisce quando si parla di 
radiale o di angolo di 
prua (HDG). 

In particolare il riferi- 
mento è sempre il polo 
nord, preso come 0°, 
mentre la radiale si rife- 
risce al radiofaro in col- 
legamento e HDG alla 
effettiva direzione del- 
l'aereo. 

DME è la distanza del- 
l'aereo dal radiofaro, 
lungo l’asse individuato 
dalla radiale. 

Nel caso rappresentato, 
quindi, nell'istante di 
misura HDG=250°, 
UWB=57° e DME=9°. 
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Figura 7 - Un tracciato 
rotta costruito per un vo- 
lo di prova. Tramite gli 
opportuni comandi è 
possibile seguirlo dal de- 
collo all’atterraggio. La 
difficoltà è proprio nella 
mancanza di pratica ini- 
ziale di prevedere i giusti 
spostamenti per arrivare 
con gli angoli di rotta vo- 
luti in un determinato 
punto. 


ZX SPECTRUM 


TLA: 28 


Sa SAB-240° 
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quota a piacere (non troppo alti, per favore!). 
Quindi riportare l'inclinazione a 1 (non a 0!) ab- 
bassando la cloche (tasto Z). Il Rd$ si azzera e 
l'altezza rimane costante. Attenzione, sempre, al- 
la velocità e alla potenza. Una eventuale situa- 
zione di stallo è da evitare, e viene segnalata 
dall'indicazione lampeggiante FUORI CONTROL- 
LO. È molto difficile, a questo punto, riprendere il 
controllo se non si è acquisita pratica (a volte è 
proprio impossibile). . 

In volo retto ad alta velocità potete tranquilla- 
mente eliminare i flap, premendo ripetutamente 
Ji 

A questo punto entra in gioco l'abilità del naviga- 
tore, il quale ha a disposizione sette punti di riferi- 
mento: i sette radiofari presenti nella zona. 
Questi fomiscono in continuazione dil'aereo due 
tipi di informazioni: il valore della radiale e il DME 
(distance measuring equipment). Il.primo indica 
l'angolazione dell'aereo rispetto al radiofaro, 
espressa in gradi e avendo sempré, come riferi- 
mento, il polo nord (0 gradi). 

Il secondo valore, DME, rappresenta la distanza in 
tale direzione dell'aereo dal radiofaro stesso. 
Uno schemino come quello riportato in figura 6 
dovrebbe chiarire le idee. 

Riassumendo, quindi, la radiole letta in alto sul 
video a fianco del nome del radiofaro è l'angola- 
zione dell'aereo rispetto al radiofaro stesso, Men- 
tre HDG è la direzione dell'aereo che si trova a 
distanza DME dal radiofaro. 

È evidente, quindi, che questi valori sono tutti 
correlati tra loro. In particolare la radiale e il DME 
saranno continuamente variabili, giacché l'ae- 
reo continua a spostarsi mentré HDG avrà note- 


voli variazioni soprattutto quando si compiono 
delle virate, ovvero quando si cambia di proposi- 
to la direzione dell'aereo stesso (questa, comun- 
que, cambia lentamente anche per effetto del 
vento o di altre perturbazioni...). 

Per virare sono disponibili itasti Ae S, e l'indicatore 
ROLL indica l'angolo di virata assunto, mentre sul 
“monitor” interno alla cabina l'orizzonte si inclina 
nella opportuna direzione. 

Si consiglia, a questo punto, di costruire dei trac- 
ciati come quello riportato in figura 7, ovvero del- 
le semplici rotte da seguire. È l'unico modo per un 
profano, a nostro avviso, di impadronirsi del me- 
stiere di pilota. 

Per avere altre radiali e i rispettivi DME rispetto ad 
altri radiofari è possibile chiederli ai radiofari stessi 
premendo il tasto R. 

A fianco dell'indicazione in gradi della radiale 
di un radiofaro è sempre visibile la figura del pro- 
prio aereo, con un puntino che indica la posizio- 
ne del radiofaro in collegamento rispetto alla 
propria prua (quindi è resa visibile la direzione 
dell'aereo rispetto a quel radiofaro). Una Mappa 
della zona è disponibile premendo il tasto M. 

I puntini indicano, affiancati dal nome, la posizio- 
ne dei radiofari. Il puntino che si trova all'interno di 
un quadrato lampeggiante indica invece la po- 
sizione dell'aereo. 

Perché questa mappa sia realmente utile è ne- 
cessario consultarla spesso, così da rendersi con- 
to se la rotta calcolata viene rispettata. La map- 
pa non viene aggiornata mentre è visibile. È ne- 
cessario quindi premere più volte il tasto M per 
avere situazioni via via aggiornate. 

Se il quadrato lampeggiante non è più visibile, 


significa che si è usciti dalla mappa stessa. È una 
operazione fattibile, ma rischiosa non si è certi di 
sapere come tornare indietro... 

| due radiofari EDN e UWB sono posizionati ri- 
spettivamente all'inizio e alla fine delle piste di 
decollo e atterraggio. Il sentiero di decollo viene 
segnalato da UWB, mentre quello di atterraggio 
va ricercato con EDN o ancora con UWB. 


TROVERETE: 


PER PET-CBM 
e TAPE-LABEL PER C 64 
e TIMER CON VIC 20 


e A128: COME RADDOPPIARE 
LA MEMORIA DELL’APPLE 


Miglia 


Un disegno della zona con la disposizione dei 
radiofari e delle piste la trovate in figura 8. 

La Manovra più difficile è I‘ atterraggio. È necessa- 
rio arrivare sulla pista avendo i seguenti valori, 
che possono differire di +/— 10%: radiale rispetto 
a EDN 70° e HDG (la propria direzione) pari a 250 
Oppure, se ci si avvicina alla pista dalla parte 
opposta, radiale rispetto a UWB pari a 250° e HDG 


SUL PROSSIMO NUMERO DI SUPER BIT 
RISERVATO PERSONAL 


e FORMULA 1 A CRONOMETRO. e CODICI COLORI E RESISTENZE 


CON LO ZX81 


e BIP-BIP: UN GIOCO 
CON LO SPECTRUM 


e IL VIC IMPARA DALL’ESPERIENZA 


Figura 8 - La mappa 
completa della zona 
aerea che comprende i 
radiofari e le piste di de- 
collo e atterraggio, posi- 
zionate tra i due radiofa- 
ri UWB e EDN. 
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Figura 9 - Per una simu- 
lazione del solo atter- 
raggio è possibile impo- 
stare dei valori nel com- 
puter, rispondendo alle 
opportune domande, co- 
me descritto nell'artico- 
lo. 
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ZX SPECTRUM 


Le domande del computer sono: 


ALTITUDINE? 
DIREZIONE DEL VENTO? 
VELOCITA’ DEL VENTO? 


Foi 


la risposta è sì, chiede ancora: 


RADIOFARO? 
RADIALE? 
E-RUA? 

DME ? 


Per provare l’atterragaio 


domande rispettivamente: 


1000 ({biledi) 


(inutile complicare ora 


il vento!) 


pari a 70°, 

Solamente in queste condizioni sul monitor in- 
terno all'abitacolo verrà visualizzata la pista di 
atterraggio non appena il DME è abbastanza 
piccolo (cioè si è vicini alla pista). Un'ottima ma- 
novra di planata prevede di scendere a 600 o 800 
piedi al minuto (RAD). Mentre la velocità diminui- 
sce è necessario incrementare la portanza 
aprendo i flap (tasto K) e appena ALT è pari a 0, 
ovvero a touch-down avvenuto, frenare rapida- 
mente premendo F (la pista non è infinitamente 
lunga!). Se tutto vabene è possibile riprendere un 
altra simulazione. Altrimenti diverse indicazioni 
lampeggianti segnaleranno l'uscita fuori pista 
con probabile distruzione del velivolo. 


È sempre possibile provare atterraggi 


Poiché, soprattutto quando si è alle prime armi, 
difficilmente si riesce a portarsi subito in una situa- 
zione ottimale per l'atterraggio, è prevista anche 
la possibilità di simulazione del solo atterraggio. 
Se siete ancora in volo abbassate la cloche e 
buttatevi in picchiata. Una volta schiantati a ter- 
ra (coraggio, è solo simulato!), potete rispondere 
alla domanda “DECOLLO? (s/n)” con N (no). Lo 
Spectrum pone allora una serie di domande al 
pilota, poi chiede se si vuole definire la propria 
posizione e pone altre domande, così da impo- 
stare dei valori utili sugli strumenti di bordo. 


chiede se si vuole definire la prooria posizione e, 


bisogna 


se 


rispondere a queste 


le cose introducendo anche 


Per provare un atterraggio si risponda alle do- 
mande come in figura 9. Per i più temerari sareb- 
be possibile anche simulare una situazione mete- 
reologica con vento, ma non è il caso di compli- 
care un'operazione già abbastanza difficile. 
Seguendo le indicazioni date si pone l'aereo a 
mille piedi (circa 300 metri) d'altezza, già perfet- 
tamente allineato con la pista. Si deve solo ridurre 
la potenza (PWR) del motore e scendere. 
L'operazione, a questo punto, è molto sempli- 
ce. Comunque le indicazioni da seguire sono le 
seguenti: 
1) aprire tutti i flap (tasto K) per aumentare la 
portanza mentre la potenza del motore cala 
(premere due volte O e per fermare il calo preme- 
re una volta P) e con essa la velocità; 
2) inclinare verso il basso l'aereo (RAD e INCL 
negativi), tenendo però d'occhio l'altimetro (ta- 
sto Z = discesa); 
3) aprire il carrello (tasto C); 
4) quando e “se” si ha l'OK dalla torre di controllo 
per l'atterraggio, appare una vista prospettica 
della pista; 
5) è necessario arrivare a bassa velocità (VEL 
circa 90 nodi), potenza al minimo, altezza 10 
piedi e frenare (tasto F) immediatamente al con- 
tatto. 
Se tutto va bene il computer vi gratificherà con 
un “BEL LAVORO CAPT.!". Altrimenti appariranno i 
messaggi del caso. le | 
Buon battesimo dell'aria! 


Verifica 
della comprensione 
dei testi per ZX81 


Torniamo sulle possibili utilizzazioni dei personal computer nell'educazione 
linguistica (CALL o Computer-Assisted Language Learning) per esaminare in 
quale modo sia possibile rispondere ad alcune domande che ricorrono 
insistentemente. 


di G. Porcelli 


C ome è possibile riutilizzare un brano già letto 
dagli studenti? Che strumenti vi sono perveri- 
ficare la capacità di comprendere un testo in 
lingua matera o in lingua straniera? Esiste il mo- 
do di operare dei controlli non solo sugli aspetti 
più strettamente grammaticali, ma anche te- 
nendo conto dei legami e dei vincoli dicoerenza 
e di coesione operanti in un testo? 

Le soluzioni proposte sono molteplici, ma certa- 
mente una delle più interessanti è costituita dalla 
procedura “cloze”. Questo termine è stato conia- 
to da Wilson Taylor trent'anni or sono, nel corso di 
alcuni studi sulla “leggibilità” e comprensibilità 
dei testi, soprattutto giornalistici. Esso fa riferimen- 
to al processo psicologico di “chiusura” median- 
te il quale di un oggetto percepiamo prima la 
forma complessiva e solo in un secondo tempo i 
singoli dettagli: 


prima percepiamo la lettera B e poi i 22 trattini 
che la compongono. Analogamente, se da die- 
tro l'angolo sbucano un pneumatico, un faro, un 
pezzo di musetto e di cofano, diciamo “C'è 
un'automobile” e non “C'è un faro, una ruota, 
ecc.”. La nostra mente ricostruisce immediata- 
mente l'oggetto intero e noi “vediamo” quello 
prima di analizzarlo nei particolari che lo costitui- 
scono. 

Questo principio trova numerose, importanti 
applicazioni proprio nel campo dei computer: 
dalle stampanti ad aghi alla grafica sul video 
mediante pixel, a tante altre. Ma la sua presenza 
non è certo limitata agli aspetti visivi; infatti, ad 
esempio, riusciamo a capire un discorso anche 
se ci sfugge qualche parola a causa del rumore 
circostante ovvero per nostra disattenzione mo- 
mentanea. Un testo scritto è, di solito, Comprensi- 


bile anche in presenza di errori di stampa, lacune 
o mende tipografiche, purché non particolar- 
mente gravi. A tutti i livelli, la ridondanza è una 
delle caratteristiche fondamentali dei linguaggi 
naturali e ben presto, dalla primissima infanzia, 
impariamo a servirci di questo elemento essen- 
ziale del comunicare. 

Per quanto riguarda le lingue straniere, il discor- 
so si complica proprio perché, istintivamente, 
ognuno vorrebbe essere sicuro di aver percepito 
fgni suono e ogni parola, per comprendere esat- 
tamente il testo (orale o scritto) che gli si presenta 
dinnanzi. Tuttavia, alla luce dei dati che emergo- 
no da numerose ricerche, non c'è dubbio che per 
essere utenti validi di un'altra lingua occorre svi- 
luppare la capacità di comprenderla in condi- 
zioni analoghe a quelle in cui si realizza la com- 
prensione della lingua matema. È stato autore- 
volmente affermato, nel corso di indagini pro- 
mosse dal Consiglio d'Europa, che la capacità di 
non lasciarsi bloccare dalla presenza di elementi 
nuovi è probabilmente il fattore più potente nel- 
l'apprendimento di una lingua estera. 
Premesso tutto questo, vediamo ora in che cosa 
esattamente consiste una procedura “cloze”, in 
che modo risponde ai requisiti sopra indicati, e 
come si possono somministrare i cloze test con il 
programma il cui listato è presentato alla figura 1. 

Molto semplicemente, un cloze test si realizza 
togliendo da un brano una parola ogni n e sosti- 
tuendola con dei puntini. La punteggiatura e 
tutti gli altri aspetti grafici (corsivo, divisione in 
paragrafi, ecc.) debbono restare inalterati. Per 
agevolare la comprensione, di solito la prima fra- 
se viene lasciata intera, o comunque la prima 
parola omessa è abbastanza lontana dall'inizio 
del brano perché vi siano sufficienti elementi te- 
stuali per la ricostruzione. Il valore di n è di solito 
compreso tra 5 e 10: togliere una parola ogni 
quattro (0, peggio, tre o Meno) rende difficilissi- 
ma, se non impossibile, la ricostruzione esatta del 
testo; lasciare numerose parole tra uno spazio e 
l'altro significa non solo facilitare il compito, ma 
anche ricorrere a brani molto lunghi per poche 
verifiche, contraddicendo le esigenze di “’econo- 
mia” del test. 

È importante che l'omissione dei vocaboli sia 
sistematica e non “pilotata” (ossia basata su 


(O) 
L 
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Figura 1 - Il programma 
Comprensione testi. 
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qualche criterio, di solito grammaticale: gli arti- 
coli, le preposizioni, i verbi, ecc.). In questo modo 
vemanno a mancare parole di tipo diverso, e la 
ricostruzione coinvolgerà varie procedure, artico- 
late e differenziate su più livelli. Diamo alcuni 
esempi: 

1) “stampante ... aghi”; qui non c'è bisogno di 
andare al di là del contesto immediato; 

2) “desideravo uscire con Anna e perciò... telefo- 
nai.”; la conoscenza della grammatica italiana è 
sufficiente per individuare il pronome femminile 


“le” riferito ad “Anna”; 

3) “Taylor propose il termine “cloze” nel ... .”; qui 
per la risoluzione occorre recuperare un'informa- 
zione presentata altrove nello stesso testo: più 
sopra si indicava “trent'anni fa” e la risposta è 
1953; 

4) “indossava una camicia bianca e... azzurri.”; 
qui la risposta dipende dalle nostre conoscenze 
(esterne al testo) di come ci si veste abitualmen- 
te e di come si descrive una persona. Ci sono 
delle regole ben precise, che tutti sappiamo usa- 
re anche se non le conosciamo esplicitamente: 
una di queste impone di citare per primi capi di 
vestiario di maggiori dimensioni, di solito proce- 
dendo dall'alto verso il basso. Dire “guanti” o 
“calzini” invece di “pantaloni” significherebbe 
contravvenire a tali regole, a meno che il brano 
non si riferisca a situazioni particolari o insolite. 
L'esemplificazione è, come sempre, parziale e 
riduttiva, ma ha solo lo scopo di illustrare la com- 
plessità e la varietà dei processi ricostruttivi (lin- 
guistici, logici e cognitivi) che sono coinvolti nella 
procedura di ricostruzione del testo. 

Ora procediamo ad esaminare come il pro- 
gramma “CLOZE” prepara e somministra un clo- 
ze test. Nella versione-base, è in grado di trattare 
un brano di 100 parole lunghe non più di 14 
lettere ciascuna (di eventuali vocaboli più lunghi 
vengono ignorate le ultime lettere). Il brano deve 
essere digitato quando appare la scritta “BATTI IL 
TESTO”; non si devono usare parentesi e i segni di 
interpunzione vanno battuti come ultimo carat- 
tere delle parole altermine delle quali essi si collo- 
cano, senza spazi. Questi Invece devono compa- 
rire - oltre che tra le parole, anche dopo i segni 
d'interpunzione (queste del resto sono le normali 
consuetudini in dattilografia e tipografia). 

Le linee 2000, 2200, 2400 ecc. assegnano ad A8 il 
valore del brano desiderato; la linea successiva 
sarà sempre un GOTO 110. 

Le linee 200-350 analizzano il brano nelle singole 
parole e stivano l'eventuale punteggiatura come 
sedicesimo carattere della stringa. 

Le linee 400-510 chiedono di indicare la prima 
parola da togliere e l'intervallo tra le omissioni. 
Le linee 550-595 sostituiscono con "---” le parole 
indicate, predispongono il posizionamento del 
cursore e rinviano alla subroutine di stampa. 

In questa subroutine (20-50) si provvede a vi- 
sualizzare il testo con la punteggiatura eliminan- 
do gli spazi bianchi superflui; un cursore punta 
alla prima serie di trattini, ossia alla prima parola 
che deve essere reinserita. 

A questo punto il compito dell'insegnante è ter- 
minato e subentra l'allievo perla routine alle linee 
600-830. Il computer è in attesa di unastringa e lo 
studente deve digitare la parola che si adatta 
nella posizione indicata; se la risposta è esatta, il 
computer l'accetta ritornando alla subroutine di 
stampa: il testo viene riscritto comprendendo an- 
che quella parola e il cursore si sposta ai trattini 
successivi. Se la risposta è errata, ciò viene segna- 
lato, con l'indicazione anche del numero di errori 
commessi fino a quel momento. Dopo tre tentati- 
vi a vuoto, il programma provvede a reinserire la 
parola esatta, e l'esercizio prosegue. AI termine 
(linee 800-980) viene indicato il totale degli errori 
e l'insegnante può scegliere se proporre un'altra 
versione di test basata sullo stesso brano, utilizza- 
re un brano diverso, 0 uscire dal programma. bi 


2420 GOTO 110 


Seguito programma Comprensione testi. 


599 PAUSE 60 
700 POKE 16437,2855 

712 LET B$(L) =d$(L) 

728 GOSUB 28 

730 NEXT L 

200 PRINT AT 13,0;' 

810 GOSUB 52 

S20 PRINT “TOTRLE ERRORI: Phi 1 
530 PRINT 

9300 PRINT ">N< PER UNA NUOUVUR VE 
RSIONE",">:K< PER CAMBIARE TESTO" 
SUN ALTRÒ TASTO PER FINIRE" 

310 GOSUB 52 

515 Si OLI 

320 IF INKEY$="" THEN GOTO 920 
9350 IF INKEY$="N" THEN GOTO 266 
940 IF INKEY$="K" THEN RUN 

ss0 STO 

360 LET A$=C% 

370 FAST 

380 GOTO a 

1510 PRINT "BATTI Ss PER SCRI 
VERE UN TE p 

1520 PRINT " U“"M"' PER SCEGL 
TERE UN TESTO";TAB 20; "IN MEMORI 
E 

152S GOSUB 52 

15350 SLOW 

1540 IF. INKEY$="S" THEN GOTO S4 
=" IF INKEY $="M THEN GOTO 157 
1559 GOTO 1540 

1575 PRINT "SCEGLI IL TESTO (1 < 
1578 IF INKEY%<>" THEN SOTO 15 
Poataa sP INKEY =" " THEN GOTTO 2158 
1590 LET U=UVAL INKEY$% 

1509 CLS 

16095 FAST 

1510 GOTO 1502+Vx200 

2009 LET A$="MR UOHNSON LOCOKED A 
T_HIS WATCH. IT VAS HALF PAST SE 


UEN, 


20919 LET A$=A$+"HE RAN ALL THE 
AY TO THE STATION AND_HE DBRENEO 
THERE_JUJUUST_ IN TIME FOR RAI 
N._ HE ALWAYS TELLS HIS FRIENDS A 
T_VHE OFFICE THAT IT Is NICE TO 
HAVE BREAKFAST IN THE MORNING, E 
UT_ IT _ IS dt TO LIE IN BED." 
2039 GOTO 118 

2209 LET R$="I AM LEARNING HOW T 
O DRIVE A CAR. A VEEK AGO I HAD 
MY FIRST LESSON. YESTERDAY MY _ TE 
RCHER TOOK ME OUT ON A 
» IT_WAS FULL OF CARS AND PEOPLE 


TIRED. I 
a BUT I HAVE STILL GOT A 
LEAR 
3510 Goro 2110 

2400 LET A$="DUR SUMMER HOLIDAYS 
LAST_THREE MONTHS. DURING THE L 
AST_UWEEK_ OF THE HOLIDAYS UE GET 

RERDY_FOR_ SCHOOL. WE BUY PENCILS 


LOT TO 


LR) 
RIN AND , WE TELL THEM ABOUT THE H 


GIDAYS.' 
=N$+" AFTER THAT LE G 
NTO_ CLASS. IT IS SO HARD TO K 
QUIET AND PAY ATTENTION TO O 
TEACHER. HE ALUAYS SAYS, WITH 
LA THAT_WE FORGET MORE IN 
TUREE, MONTHS THAN A 


WE DECIDED 
TO THE SERSIDE. 
HT_AND_UARM, BUT NE DID NOT G 
NTO_ THE URTER. 


WE _ DID pel MIND 
ABOUT THE WERTHER AT ALL 


2510 GOTO 110 
Sept È STOP 


il BASIC é indispensabile 


Se Lei ha già un computer, o se vuole 
acquistarne uno, si iscriva subito almo- 
dernissimo corso per corrispondenza 
IST 


*puovo! 
PROGRAMMAZIONE, Ze 
BASIC e MICROCOMPUTER 


Non vincolato ad alcun tipo di computer, 
il nuovo corso IST è costituito da 12 
gruppi di lezioni per l'apprendimento 
della programmazione in BASIC e per 
la sua applicazione a vari microelabora- 
tori (TEXAS INSTRUMENTS, APPLE, 
ATARI, COLOR GENIE, COLOR COM- 
PUTER, EPSON, ecc.), in particolare ai 
modelli Commodore e Sinclair. 


AL TERMINE DEL CORSO: 
@ Sarà in grado di capire qualsiasi pro- 


® Con l'IST Lei può studiare 
nella comodità di casa Sua, 
come e quando preferisce @ 
L'ISST Le garantisce un'assi- 


stenza didattica personalizza- 
ta con Esperti qualificati @ |l 


Certificato Finale dimo- 
strerà il Suo impegno edi risul- 
tati ottenuti ® 


gramma e, autonomamente, potrà 
crearne di nuovi ® Saprà valutare i pro- 
grammi standard e scegliere quelli più 
adatti alleSue necessità @ Conoscerà le 
caratteristiche delle varie unità di am- 
pliamento @ Contfronterà il linguaggio 
BASIC con altri altrettanto noti @ 
Giungerà, attraverso una corretta anali- 
si dei problemi, ad una solida base 
teorico - pratica dell'EDP (elaborazione 
elettronica dati) per utilizzarla a livello 
personale e professionale @ Sarà pron- 
to ad operare con le macchine program- 
mabili della nuova generazione ® 


Chieda subito — in VISIONE GRATUI- 
TA, per posta e senza alcun impegno — 
la prima dispensa per una PROVA DI 
STUDIO e la documentazione comple- 
ta. Riceverà tutto con invio raccoman- 
dato 


ISTITUTO 
SVIZZERO 
DI TECNICA 


La scuola del progresso 


è Associato al Consiglio Europeo Insegnamento per 
Corrispondenza 

@ insegna a distanza ga oltre 75 anni. in Italia da oltre 35 

® Nonettettua ma: visite a domiclo 

@ Non nchiede tasse di adesione 0 di interruzione 

® Con sede unica a Luino (Varese) 


ie eee 7 _ r—— n! 
[ee compilare, ritagliare e spedire in busta a: BM 65a i 


IST- ISTITUTO SVIZZERO DI TECNICA 


Via S. Pietro 49 - 21016 LUINO VA 
SI, desidero ricevere - 
i cun impegno - 
mentazione completa del Corso. 
Intendo studiare con il computer 


O che posseggo già 

Cognome 

o TE DPI TM CT Ter DOOR RIN | ESONI PISNOI RSeT O 
Nome 
lipolisi 
Via 
AS BIT VEE (ESME SRP POR: LAINO NET. 
a & Città 


ST dini 


dit 
\\ Fi pigna: 0 studi frequentati 


Tel. 0332/53 04 69 
(dalle 8.00 alle 17,30) 


in VISIONE GRATUITA, per posta e senza al- 
la prima dispensa per una PROVA DI STUDIO e la docu- | 


D che non posseggo ancora "{ 


— E 


ASI SA IE AI TONE. TONO PO eni ape IT TODI 


il 


4 A + VNDI E n i Nessi) sd 
pa, 


cc 


CANTIANI PaM 8482B 


LI 
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Slalom: una folle discesa 
sino al traguardo 


Come la maggior parte dei giochi d'azione, Slalom è facile da capire 
ma difficile da giocare. 

La cosa che più colpirà sarà l'ottima velocità di questa sfida altamente realistica; 
l’effetto sonoro della sciata si unisce ad un simpatico paesaggio costellato di alberi e 
di montagnole ghiacciate, in un percorso che cambia continuamente. 

Slalom è un colorato gioco d'azione per il VIC 20 nella configurazione base di 
memoria; i comandi vengono impartiti attraverso la tastiera e c’è la possibilità di 
selezionare fino a cinque manche di gioco, ciascuna giocabile da 1 a 5 giocatori, oltre 
alla possibilità di scegliere uno tra i cinque livelli di difficoltà. 


a cura della Redazione 


Evitare gii ostacoli 


L o scopo del gioco è quello di guidare lo scia- 
tore attraverso le 10 porte, cercando di evita- 
re che si schianti contro i pini ®& contro i bordi della 
pista. 

Saltando sui cumuli ghiacciati c'è la possibilità di 
migliorare il proprio tempo di manche. Il miglior 
tempo in assoluto, circa 29 secondi, può essere 
realizzato al livello 5, evitando ogni ostacolo e 
prendendo tutte le cunette ghiacciate. Ma rag- 
giungere questo risultato è incredibilmente diffi- 
cile, anche per un esperto. Il segreto sta proprio 
nel cercare di salire su quante più cunette è possi- 
bile; ciò non soltanto vi sposterà in avanti, oltre- 
passando i pini, ma farà aumentare la velocità di 
discesa. 

Ogni volta che si finisce contro un albero si 
riparte da una linea più sopra (questo fino ad un 
massimo di 10 volte), così si ha un attimo in più 
per vedere com'è il paesaggio che stà compa- 
rendo più in basso. AI raggiungimento di una 
cunetta invece si salta una riga più in basso (fino 
ad un massimo di 3 se si è finiti al centro, proprio 
sulla sua cresta). 


La definizione dei caratteri 


La linea 10 stampa il titolo del gioco, mentre la 
linea 20 limita la memoria utilizzabile del pro- 
gramma BASIC in modo che questo (o le variabili 
che usa) non sconfini nell’area contenente i nuo- 
vi caratteri programmati. 

Si provi a digitare PRINT FRE(0) e a premere RE- 
TURN. Si ripeta l'operazione dopo aver impostato 
POKE 56,28: POKE 55,250: POKE 52,28: POKE 51,250 
ed il solito RETURN. Si ottiene così uno spazio di 


la 


circa 260 byte per i caratteri programmabili. 
Nella linea 30, poiché X all'inizio vale 0, si passa 
direttamente alle istruzioni di gioco che iniziano 
alla linea 70; altrimenti vengono deposti, nell'a- 
rea che si è appena riservata, i codici corrispon- 
denti ai nuovi caratteri. Si noti che il primo numero 
di ogni riga DATA rappresenta l'indirizzo di parten- 
za in cui inserire via via i valori letti successiva- 
mente. 


Livelli di difficoltà 


Le linee dalla 70 alla 90, come si è detto, provo- 
cano la stampa delle istruzioni di gioco con le 
indicazioni sucome “pilotare” lo sciatore. La linea 
100 chiede di introdurre il numero di giocatori che 
partecipano al gioco, mentre la 110 chiede in 
quante manche si vuole disputare la gara (in 
entrambi gli INPUT, valori estemi all'intervallo am- 
messo, vengono ovviamente ignorati). La linea 
120 inizializza i valori di R (il numero attuale di 
manche) e di P(il numero del giocatore in questo 
momento abilitato). Le linee 130 - 140 porgono il 
“menu” dei livelli di difficoltà, le linee che invece 
vanno. dalla 150 alla 210 raccolgono il valore 
della selezione nella variabile A$ poi convertito in 
numero e posto in SK; in base a questo si regola la 
quantità di pini generata casualmente sul per- 
corso (RN). 


In pista 


La linea 220 calibra un nuovo valore di SK per 
controllare la velocità di discesa (tanto più forte 
quanto più è elevato il livello di difficoltà). Con 
l'esecuzione della linea 230 vengono abilitati i 
nuovi caratteri al posto del set normale. Ciò in 
caso di errata digitazione del programma, può 
crearvi dei problemi nel senso che un eventuale 
“sintax error” provocherà l'arresto del programma 
e la comparsa di strani ed indecifrabili geroglifici 
(!). Niente paura, basta portare il cursore nell'an- 


golo in alto a sinistra (HOME) e digitare POKE 
36869,240 e premere RETURN, Instantaneamente 
tutto riacquisterà un senso! La linea 230 inoltre 
pulisce lo schermo, calibra il volume e fissa in S 
l'indirizzo del generatore di suono o meglio di 
rumore che verrà usato. Segue la stampa, nel 
primo tratto di pista, degli alberi, questi vanno da 
un minimo di 1 ad un massimo di 19 e tale nume- 
ro (L) viene stabilito in base ad una generazione 
casuale. 

Alla linea 250, B viene inizializzato con la posi- 

zione video di partenza dello sciatore, C con lo 
spiazzamento tra Mappa video e mappa colore, 
mentre F contiene il codice del carattere dello 
sciatore. Stampa (POKE) dello sciatore nella posi- 
zione B; se lo sciatore va a sinistra il codice carat- 
tere è il 55, mentre se va a destra è il 53. Il resto 
della linea 250 pulisce le caselle immediatamen- 
te davanti alla posizione dello sciatore in modo 
che questi non abbia a schiantarsi, appena par- 
tito, contro qualche pino. 
La linea 260 mette le prime bandierine, mentre la 
270 visualizza il livello di difficoltà, selezionato pri- 
ma. La 280 stampa la linea che unisce le due 
bandierine, sempre alla partenza. Alla linea suc- 
cessiva la generazione di un suono per avvisare 
che è il momento di partire; segue l'azzeramento 
dell'orologio, mentre la linea 310 attende che si 
prema un tasto. Se non lo si fa, non succede nulla, 
tranne che nel frattempo l'orologio continua ad 
andare avanti. Cerca di oltrepassare la prima 
porta, prima che venga suonata l'ultima nota. 

La linea 230 contiene il ciclo principale del 
programma. Se SK non è zero, c'è un conteggio 
“a vuoto” fino ad SK prima di proseguire. Questo 
ritardo è dunque strettamente collegato col livel- 
lo di difficoltà, ma può essere escluso saltando sui 
dossi ghiacciati. 


Il movimento dello sciatore 


Se F vale 55 nella linea 330, vuol dire che lo 

sciatore sta andando a sinistra; ciò provoca la 
stampa della scia dietro di lui col codice- 
carattere 58. Se invece sta andando a destra, 
verrà visualizzato il carattere corrispondente al 
codice 59. 
Guardando il contenuto della locazione 197 (PE- 
EK(197)), è possibile stabilire quale carattere vie- 
ne premuto sulla tastiera. Il 29 corrisponde ad un 
movimento verso sinistra (tasto <); viene quindi 
impostata la direzione di movimento (D), F viene 
posto a 55 (come già visto è la figura dello sciato- 
re rivolto a sinistra), mentre al generatore di rumo- 
re viene dato in pasto il numero 245. 

Se nessun tasto viene premuto, lo sciatore pro- 
segue, nella sua folle corsa, sempre verso destra e 
i nuovi valori di D, Fed $vengono impostati con la 
linea 360. Se si fa attenzione, si può notare come il 
fischio del vento venga modulato in base ad ogni 
cambiamento di direzione. 


Le porte e la linea d'arrivo 


La variabile G viene incrementata alla linea 
370. Se questa ha un valore minore di 28, il con- 
trollo passa alla linea 410, visto che non è il mo- 
mento né di una porta nè della linea di arrivo; 


altrimenti G viene posta a 0 ed E (contatore del 
numero di porte) viene incrementata. 

Si passa alla linea 390 solo se lo sciatore ha rag- 
giunto la linea finale; se E risulta minore di 10, 
viene generato un numero casuale compreso tra 
2 ed 11, in base al quale verrà poi stabilita la 
tabulazione per la stampa della porta (TAB(X)). 
Quando G arriva a 10 la linea 410 stampa un 
dosso ghiacciato in posizione X (TAB(X)), dove X 
è un numero casuale compreso tra 4 e 13 (ven- 
gono ovviamente anche stampati i bordi destroe 
sinistro della pista). 

Nella linea 420 si stabilisce se deve essere stam- 
pato un albero, in base al valore di RN preceden- 
temente calcolato; poiché RN al massimo vale 6 
vuol dire che, in media, l'albero viene stampato il 
60% delle volte (solo al livello 5 di difficoltà). Ana- 
logamente la linea 430 stampa un albero in 
TAB(L), dove L è come al solito un numero casua- 
le compreso, questa volta, tra 1 e 19. 

Se il PEEK(B) non è 32 (uno spazio bianco) vuol 
dire che lo sciatore è andato a finire contro qual- 
dg ostacolo e il controllo passa allora alla linea 


L'illusione del movimento 


In realtà lo sciatore rimane sempre alla stessa 
riga, spostandosi solo in orizzontale: l'illusione del 
movimento è data dallo “scrolling” automatico 
dello schermo per ogni nuova PRINT. Il controllo 
ritorna poi al ciclo principale (GOTO 320). 


Figura 1 - Lista delle 
principali variabili usa- 


te. 
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Le bandierine e | bordi 


La linea 500 controlla se si è passata una porta; 
il suono sale di una nota, e si incrementa H. Il 
controllo ritoma quindi al ciclo principale. 

La linea 510 controlla se lo sciatore è arrivato alla 
linea del traguardo. Viene arrestato il tempo (si è 
tentato di mettergli le manette ma non ci si è 
riusciti!), è memorizzato in TM. 

Se viene investita una bandierina, la linea 520 
abbassa di una nota il suono e il controllo passa 
alla linea 570. 

Se non è stato colpito un dosso si passa sempre 
alla 570, mentre se si è finiti sopra di esso, le linee 
540-560 provocano lo spostamento in orizzontale 
dello sciatore di due spazi nella direzione in cui 
stava scendendo (D), mentre viene operato per 
10 volte uno “scrolling”; il valore di SK viene decre- 
mentato: ciò provoca un aumento della velocità. 
La linea 570 controlla se è stato colpito uno stec- 
cato del bordo della pista. Se è così, si inverte la 
direzione ed il controllo passa alla linea 610 perla 
generazione del commento sonoro e l'incremen- 
to del numero di oggetti colpiti (OS). Se è stato 
colpito un albero, la linea 620 porta lo sciatore in 
su di una linea, aggiornando il valore di U e con- 
trollando se è arrivato al limite di 10: se sì, ilgioco è 
terminato: possibilità di una nuova partita. Altri- 
menti, con la linea 630, si ritoma al ciclo principa- 
le 


Alla linea 640 gli effetti sonori all'arrivo sulla 
linea del traguardo, mentre le 650-660 stampano 
i risultati dell'andamento del gioco con il punteg- 


io. 

e linea 670 aggioma il punteggio del giocatore 
che ha appena concluso la manche. Stampa 
del numero di manche. La linea successiva stam- 
pa i totali, fino a quel momento, di tutti i giocatori, 
mentre la linea 690 reinizializza le variabili per la 
prossima partenza. 

Viene stabilito il numero del giocatore abilitato 
alla prossima partita. Se però quello che ha ap- 
pena concluso era proprio l'ultimo e anche le 
manche sono state tutte disputate, il gioco è 
terminato (GAME OVER). 

Ok, è ora tempo di inserire il programma e di 
partire con la prima partita: c'è un record del 
mondo che sta aspettando di essere abbattuto. 
Raccomandazione finale: se non volete amivare 
distrutti al traguardo, è assolutamente necessario 
fare prima del RUN un po' di... ginnastica prescii- 
stica! 


Figura 2 - Il programma 
Slalom. 


19 PRINT" IMMENSE] SLALOM" 
20 POKES6,28 POKESS,250:POKES2,28 :POKE 
51.2506:FOKE € 
35 READX:1F? 
FORI=XTOX 


DATA7S72, 


n° 


DATA7564, 
» DATA75E55. 
Se DATA7648. 
DATA7540,32. 
DATA? PL 
; DATA? pi 
7 DATA7615 
= DATA7568, 
DATA7424, 3,0, 
DATA7SS?,8,24. 


s Mis ° % 
sOnO 


a 
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VIC 2055555 =s sE 


63 DATA7S68 

70 PRINTCHF$ 
une == 

89 PRINT" IL TUO PUNTEGGIO SI INCRE 
MENTA DI 5 PLINTI PER OGHI FORTA MANCATA 


ALOM" :PRI 


S1 PRINT'SBSRINCE CHI REALIZZA IL MINOR 
PUNTEGGIO" 

SO PRINT'IRNCON sKB VAI A SINISTRA" 

95 PRINT"iBCON sbB VAI A DESTRA" 

100 INPUT"EIH. GIOCATORI<(1-4)":NP:IFNP 
10OPFNPDATHEN7O 
115 INPUT "MSN. 
1O0FHPR>STHEN7O 
120 R=al:F=1 
130 PRINT"EMASCIATORE N. ":P:PRINT"MG-0 
IFFICOLTA”-":PRINT"I=INIZIO":PRINT"2=IN 
TERMEDIO" 

140 PRINT"S=AVANZATO" :PRINT"4=0OLIMPICO 
"sPRINT"S=PROFESSIONAL" 

150 A$-"" ;GETAS:IFR$=""THEN1SO 

1609 IFR*="1"THENS#="PRINCIPIANTE" 

170 IFAS="S"THENSF=" INTERMEDIO" 

120 IFAS="3"THENS#= "AVANZATO" 

1909 IFA$="4"THENSf="OLIMPICO" 

260 IFA*="5"THENS#="PROFESSIONAL" 

216 SK=VALCA$) :PN=(3K+13/719: IFSKC10RSK 
>SURSKCDINT<SK5 THENPRINT"TTI_ICOMOOO" 60 
TO01360 


ROUNDS  <1-5)":NR:IFNRC 


C.,3:POKEB+ POKEB+21.32:POKEB+23,32 
260 POKES12S,57:POKES131,57:POKES125+C 
-4:POKES131+C,4 

279 PRINT" MNM 
BINeTeIa)" 

280 FORI=S125T08130:POKEI,S2:POKEI+C,4 
:NEXTI 

299 FORI=1T05:POKES-1,220+5%]:FORT=1T0 
100:NEXTT:POKES-1.0:NEXTI 

300 TIf="G0000060" 

310 GETAS:IFAS="" THEN316 

3209 IFSKTHENFORT=1TO0SK sNEXTT 

233 IFF=aSSTHENPOKES-21,598:G0T0250 

349 POKEB-253 
50 IFPEEK(197)=29THEND=-1:F=55:POKES, 
245 :G0T0370 

3509 Dr1:F=53:POKES,246 

370 G=G+1:IFGC2STHEN4165 

380 G=5:EsE+1:IFE=19THENPRINT"98S9388 
‘ 882 18889" :G0T04650 

49 IFEDISTHENPOKEB, 56 :GO0TO51a 

400 X=INTXRNDC1)*109)+2:PRINTTABCKO5 "994 
494449" :G0T046560 
410 IFG=19THENZ=INT<XRNDC1>)*10)+4 PRINT 


39398 5" MISTE 


FEND<1>>RNTHEN440G 
=INTCRNDC1)3%19%+1:PRINTCHR$C28)"<C 
1 "fg?" : TABC20) :CHR# (28) "<" :G0T045 


5 PRINTCHRS(285"<C" TAB<(26)»"<C" 
IFPEEK<B><>32THENSOO 

4689 POKEB,S2:B=B+D:POKEB,F :POKEB+C,3 
470 GOTOSzo 

4809 END 
IFPEEK<(B>=52THENH=H+1:POKES-1,240: 


516 


20 


ATHEL 


550 


3 
de 5] 


ili 


RINT 
EE 


t1 


a] 


TO6168 
4 IFPEEK{(ED=S3THENPOKEB-D2.50:POKEB. 


XTT:POKE 1 
6509 U=5:PRINT"ASIGGETTI COLPITI=":0S:F 


IKES.0:l 


FORTS=1TO0SM:NEXTT:POKES-1,6:G0T04650 


IFPEEKCEd= SS THENH=19-H:TM=INT<TI/ 


65 :POKES-1,0:POKEB+D.F :G0T0640 


IFPEEKCE5=57 THENPOKES-3,220:G0T057 


52 ANDPEEK (E) C>6 1 THENS7O 


3:D=0#2:G=6+16:FORI=1ITO010: 


IFPEEK: 
POKES,.2 


PRINTCHP8<28)"C":TABC20)"<C" :NEXTI :IFS} 


{4SK=SK-E 
IFL 3THENB=B+22 :1U=1J-1 
GOT04EM 


IFPEEKC(B)=S59THENPOKEB,50:D=0*-2:G0 


DTOS1IA 

POKES-3,0:60T0456 

0S=0S+1 :FORT=OT0127 :POKES, 255 
22+C, INTCTA/225+2:NEXTT :PO , 
IFPEEKC(B)=51THEND=-22 


2:4U=U+1:IFU=19 


'RINT"XFROVA ANCORA" :POKESSS5S, 240 


O:FORT=128T0255 :POKES-3,T:t 


"PALI SALTATI=":H:PRINT" grEMPO=":T 


= TM+S#H 


:POKES- G:FORT= 
:NEXTT :POKES-2.0:POKE36S69,240 
2(Pd=2(P)4SC:PRINT"MN FIFHNCH 


PRINT" ":FORI-1T0HP 


PRINT" SCIATORE N."sI:2C1):NEXTI 
SC=t :6=9 :E=0:0S=09:H=0: IFU= 16THENIJ 
50TO0iza 
PaP+1:IFPCNP+1THEN130 
R=eR+1:IFRONR+A1THENP=1:G0T013E 
PRINT"MM GAME OVER" :PRINT" I" 


simboli grafici 


2 = SHIFT 
9 M = CRSRI 


HOME [CHR®1475] 
[CHR$C173] 


SHIFT HOME [CHR$C(147>] 


1 a SHIFT CRSRT [CHR*14553] 
1 w = CTRL 7 [CHR&315] 

8 = CIRL S (CHR$ 1565] 

ni 


CRSR1 (CHR$<17)] 


id = CTRL 6 CCHR$£(30)] 
N) = CRSPI CCHR$C173] 
a = CTRL RYS [CHR$C183] 
m - CTRL R' 


[CHR:£(30)] 
S-ON  CCHR$C18)] 
3=DFF 


1 id = CTRL 
1 d = CTRL 
CTRL 


: 2 M= CRSRT- 


] = CRSRI 


CCHRS 17 


[CHR$C175] 

[CHR8C175) 
TRL RVS-ON  CCHR$C18)] 
CTRL 4 [CHRSC159)] 
CESRT  ICHR$(17] 

= CTRL 7 CCHRSC(31)] 


berkuta 
A 


[CHR$(1455 


= SHIFT ] 


CRSRTÎ 


SHIFT HOME [CHR$C1473] 


[CHR*C1465) 


[CHR$(1465] 


Seguito programma Sla- 


: a x lom 
CTRL £ [CHR£(30)3 


= SHIFT HOME [CHR$1473] 
CRSFET [CHR$C1723] 
CTRL RYS-0ON [CHR8 185] 
CRSET [CHRT173] 


CTRL S  (CHR$(156)] 
CTRL S  [CHR$C156)] 


SHIFT CRSRT  CCHR$C145)] 
4° (CHR$c159:] 


[CHR£ 363) 


CTRL RYVS-ON [CHPE: 
SHIFT HOME [CHR®(1475] 


SHIFT HOME  CCHR$(1473] 
TRL PVS-ON  CCHR$C183) 


DN CCHRSC(18>] 


[CHPR:$ 175) 
PWS-ON [CHP£ 185] 


CCHRSC17 


bi | i le 


Le RIVISTE 
DEL PERSONAL COMPUTING 


GRUPPO EDITORIALE JACKSON 


1984 * Bit - 63 


SERVIZIO SOFTWARE 


HH 
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Bit propone ai propri lettori 
: “ i dischi o le cassette 

È dei programmi pubblicati. 
| programmi, 

provati e garantiti, 

sono di immediato utilizzo. 
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Sistema Prezzo 


Gioco della scimmia. VIC 20 15.000 VI381A Cassetta 
Spaccamattoni 


Text-Editor PET 3032 20.000 PE381B Cassetta 
PE382B Disco 


Pianel Apple Il 20.000 AP382C Disco 


Rompicapo CBM 4032 15.000 PE391A Cassetta 
di Rubik CBM 3032 20.000 PE392B Disco 


Breakout CBM 3032 20.000 PE393A Cassetta 
Reporter Apple Il 20.000 APA402C Disco 
Discover Apple ll 20.000 AP412C Disco 
Apple-Chef Apple Il 20.000 AP422C Disco 
Provariflessi VIC 20 15.000 VIA21A Cassetta 
Tiny FORTH Apple Il 35.000 AP452A Disco 
Alì Babà ZX Spectrum 15.000 SP451B Cassetta 


1X2 PET 3032 15.000 PE451C Cassetta 


Per richiedere | programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare Il seguente tagliando 
Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


sm ------------------------2D@- 


Inviatemi i seguenti nastri e/o dischi con i programmi 6) GRUPPO EDITORIALE JACKSON 

pubblicati su Bit. 

cod. CLTITI] I ROSSE OT IC Cognome ;-.;.-..... Lei ia ar 

cod. CLITIIT] IRA SR EA Nome. areata 

cod. CLITITIT] "IT AMCERTI SCOPRITE REPORT CFVOTO SERRE PRPANRENVIRI RR EIA APPORRE O PORRE 

cod. CLLITID] bi ieri ie ii tà 
a RO IO IO OTO INTATTO 


Spese postali (contributo fisso) L. 2.000 
inca a cà ora 


che pagherò al postino alla consegna del pacco Aimee leider 


